hi i'm trying to create a drop down menu which calls the items listed from a database. for some reason i get a 'can't display window or can't find window' what am i doinf wrong. pls pls help!!!
<html>
<body>
<link href="ConnectDB.asp">
<%
dim connectionString
dim noRecsCode
dim connectDB
connectionString = "Driver={SQL Server}";
connectionString = connectionString & "Server=MISWARE";
connectionString = connectionString & "Database=COLDATA";
connectionString = connectionString & "uid=reports";
connectionString = connectionString & "pwd=reports";
set ConnectDB = server.createObject("ADODB.Connection")
connectDB.open connectionString
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT DISTINCT EOrigin FROM Ethnic_origin ORDER BY EId"
rs.Open sql,conn
EOrigin=request.form("EOrigin")
%>
<form method="post">
Choose Country <select name="EOrigin">
<% do until rs.EOF
response.write("<option")
if rs.fields("EOrigin")=EOrigin then
response.write(" selected")
end if
response.write(">")
response.write(rs.fields("EOrigin"))
rs.MoveNext
loop
rs.Close
set rs=Nothing %>
</select>
<input type="submit" value="Show customers">
</form>
<%
if country<>"" then
sql="SELECT EId,EOrigin FROM Ethnic_origin WHERE EOrigin='" & EOrigin & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2" border="1">
<tr>
<th>EId</th>
<th>EOrigin</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("EId") & "</td>")
response.write("<td>" & rs.fields("EOrigin") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
rs.close
conn.Close
set rs=Nothing
set conn=Nothing%>
</table>
<% end if %>
</body>
</html>
dBforums
>
asp/ado
10-28-03, 04:48
Linear Mode
