Beste mensen,
Ik breek mijn hoofd
over het volgende. Ik heb een formulier met meedere pulldown menu's (moeten er een stuk of 10 worden) waarvan de waarde dynamisch uit de database worden getrokken.
Probleem: ik krijg het niet voor elkaar om de resultaten(door de gebruiker gekozen optie) weer te laten geven in een andere *.asp-file.
De code (deze werkt):
----------------------------------------->
<%
Option Explicit
Dim conn,sql,rs
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DBQ=d:/inetpub/wwwroot/database/acart2_0.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"
sql="SELECT * FROM monitor"
Set rs=conn.execute(sql)
%>
<html>
<head>
<title>
Database Drop Down Menu
</title>
</head>
<body>
<form action="form2.asp" method=post>
<select name="Monitor">
<%
Do While Not rs.eof
Response.Write("<option value=""" & rs("id") & """>" & _
rs("type") & "</option>")
rs.movenext
Loop
%>
</select>
</form>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DBQ=d:/inetpub/wwwroot/database/acart2_0.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"
sql="SELECT * FROM printer"
Set rs=conn.execute(sql)
%>
<form action="form2.asp" method=post>
<select name="printer">
<%
Do While Not rs.eof
Response.Write("<option value=""" & rs("id") & """>" & _
rs("Type") & "</option>")
rs.movenext
Loop
%>
<input type="submit" value="Search">
</select>
</form>
</body>
</html>
<%
conn.close
Set conn=Nothing
Set rs=Nothing
%>
---------------------------------->
Ik hoop dat jullie mij een beetje opweg kunnen helpen.
Alvast Bedankt!
Ik breek mijn hoofd
Probleem: ik krijg het niet voor elkaar om de resultaten(door de gebruiker gekozen optie) weer te laten geven in een andere *.asp-file.
De code (deze werkt):
----------------------------------------->
<%
Option Explicit
Dim conn,sql,rs
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DBQ=d:/inetpub/wwwroot/database/acart2_0.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"
sql="SELECT * FROM monitor"
Set rs=conn.execute(sql)
%>
<html>
<head>
<title>
Database Drop Down Menu
</title>
</head>
<body>
<form action="form2.asp" method=post>
<select name="Monitor">
<%
Do While Not rs.eof
Response.Write("<option value=""" & rs("id") & """>" & _
rs("type") & "</option>")
rs.movenext
Loop
%>
</select>
</form>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "DBQ=d:/inetpub/wwwroot/database/acart2_0.mdb;DRIVER={Microsoft Access Driver (*.mdb)}"
sql="SELECT * FROM printer"
Set rs=conn.execute(sql)
%>
<form action="form2.asp" method=post>
<select name="printer">
<%
Do While Not rs.eof
Response.Write("<option value=""" & rs("id") & """>" & _
rs("Type") & "</option>")
rs.movenext
Loop
%>
<input type="submit" value="Search">
</select>
</form>
</body>
</html>
<%
conn.close
Set conn=Nothing
Set rs=Nothing
%>
---------------------------------->
Ik hoop dat jullie mij een beetje opweg kunnen helpen.
Alvast Bedankt!