hello alls
I am sending a programme in that a combobox valueis send by querystring. In the combo all value related to the query is listed but the problem is that only first value is taken even we select the second , third or last value. is there is any problem with the programme?
Plz check the programme and correct it and send to me as the earliest
ssmnon
<%@ Language=VBScript %>
<%
set con = CreateObject("ADODB.Connection"
cn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/testdb.mdb"
con.open cn
set rs = CreateObject("ADODB.Recordset"
set drs = CreateObject("ADODB.Recordset"
set rs = con.Execute("SELECT * FROM LOCATIONtb"
Set Drs = CON.Execute ("SELECT DISTINCT SDATE FROM testtb"_
&" WHERE SHOWDATE <= DATE()+6 AND SHOWDATE >= DATE()"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM METHOD="GET" name=testing action=ocd.asp?loccode='<%=rs.Fields("LOCCODE".Value %>&loccode='<%=rs.Fields("sdate".Value %>'>
<%
if rs.BOF = true then
Response.Write("NOT SHOWING ANYWHERE" else
rs.Movefirst
%>
<SELECT NAME="loccode" SIZE="1">
<OPTION VALUE="">Select Location</OPTION>
<%Do Until rs.EOF %>
<OPTION value=<%=rs.Fields("LOCCODE"%>><%=rs.Fields("LOCNAME"%>
</OPTION>
<%rs.MoveNext()
Loop%>
</SELECT>
<%END IF
rs.Close%>
<%
if Drs.BOF = true then
Response.Write("NOT SHOWING ANYWHERE"
else
Drs.Movefirst
%>
<SELECT id=select1 name=SDATE>
<OPTION selected value="">Select SDATE</OPTION>
<%Do Until drs.EOF %>
<OPTION value=<%=Drs.Fields("SDATE"%>><%=drs.Fields("SDATE"%>
</OPTION>
<%Drs.Movenext
Loop
%></SELECT>
<%END IF
Drs.Close%>
<TD ALIGN="CENTER">
<INPUT TYPE="submit" NAME="Submit1" VALUE="Search"
STYLE="BACKGROUND-COLOR: gold; BORDER-BOTTOM: medium none"></TD>
</TR> </FORM>
</BODY>
</HTML>
I am sending a programme in that a combobox valueis send by querystring. In the combo all value related to the query is listed but the problem is that only first value is taken even we select the second , third or last value. is there is any problem with the programme?
Plz check the programme and correct it and send to me as the earliest
ssmnon
<%@ Language=VBScript %>
<%
set con = CreateObject("ADODB.Connection"
cn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/testdb.mdb"
con.open cn
set rs = CreateObject("ADODB.Recordset"
set drs = CreateObject("ADODB.Recordset"
set rs = con.Execute("SELECT * FROM LOCATIONtb"
Set Drs = CON.Execute ("SELECT DISTINCT SDATE FROM testtb"_
&" WHERE SHOWDATE <= DATE()+6 AND SHOWDATE >= DATE()"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM METHOD="GET" name=testing action=ocd.asp?loccode='<%=rs.Fields("LOCCODE"
.Value %>&loccode='<%=rs.Fields("sdate".Value %>'> <%
if rs.BOF = true then
Response.Write("NOT SHOWING ANYWHERE"
else rs.Movefirst
%>
<SELECT NAME="loccode" SIZE="1">
<OPTION VALUE="">Select Location</OPTION>
<%Do Until rs.EOF %>
<OPTION value=<%=rs.Fields("LOCCODE"
%>><%=rs.Fields("LOCNAME"%> </OPTION>
<%rs.MoveNext()
Loop%>
</SELECT>
<%END IF
rs.Close%>
<%
if Drs.BOF = true then
Response.Write("NOT SHOWING ANYWHERE"
else
Drs.Movefirst
%>
<SELECT id=select1 name=SDATE>
<OPTION selected value="">Select SDATE</OPTION>
<%Do Until drs.EOF %>
<OPTION value=<%=Drs.Fields("SDATE"
%>><%=drs.Fields("SDATE"%></OPTION>
<%Drs.Movenext
Loop
%></SELECT>
<%END IF
Drs.Close%>
<TD ALIGN="CENTER">
<INPUT TYPE="submit" NAME="Submit1" VALUE="Search"
STYLE="BACKGROUND-COLOR: gold; BORDER-BOTTOM: medium none"></TD>
</TR> </FORM>
</BODY>
</HTML>
![[pc]](/data/assets/smilies/pc.gif "[pc] [pc]")
Be nice. It's only doing what you tell it to do.