maybe Javascript

Set rs = Conn.Execute(\"select * from drop WHERE not dropout=\'..:: Links ::..\'\")

<%
Response.Buffer = True
%>
<form method=\"POST\" action=\"dropdown.asp\">
<p align=\"center\"><select style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF\" size=\"1\" name=\"url\">
<option value=\"\">..:: Links ::..</option>
<%
if Request.form(\"url\") <> \"\" then
Response.Redirect Request.form(\"url\")
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from drop\")
Do until rs.eof
%>
<option value=<%=rs(\"value\")%>><%=rs(\"dropout\")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
      </select><br>
<br>
<input type=\"submit\" value=\"Gå til siden\" style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF; border-style: solid; border-width: 1\"></p>
</form>

Hvor skal det sættes ind ?

Så har du KUN dine links i db´en!

<%
Response.Buffer = True
%>
<form method=\"POST\" action=\"dropdown.asp\">
<p align=\"center\"><select style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF\" size=\"1\" name=\"url\">
<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
Response.Redirect Request.form(\"url\")
end if
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from drop WHERE not dropout=\'..:: Links ::..\'\")
Do until rs.eof
%>
<option value=<%=rs(\"value\")%>><%=rs(\"dropout\")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
      </select><br>
<br>
<input type=\"submit\" value=\"Gå til siden\" style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF; border-style: solid; border-width: 1\"></p>
</form>

tpill det skal stå der, men bare ikke kunne bruges,dit for det til at forsvinde.

så fatter jeg ikke dit problem, kan du ikke forklare hvad du skal udskrive...
og mit navn er tpiil med 2 i\'er ikke tpill, nu må du ha lært det snart!

<%
Response.Buffer = True
%>
<form method=\"POST\" action=\"dropdown.asp\">
<p align=\"center\"><select style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF\" size=\"1\" name=\"url\">
<option value=\"\">..:: Links ::..</option>
<%
if Request.form(\"url\") <> \"\" then
Response.Redirect Request.form(\"url\")
else
Response.Redirect \"drowdown.asp\"
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from drop\")
Do until rs.eof
%>
<option value=<%=rs(\"value\")%>><%=rs(\"dropout\")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
      </select><br>
<br>
<input type=\"submit\" value=\"Gå til siden\" style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF; border-style: solid; border-width: 1\"></p>
</form>

Hmm:

<%
Response.Buffer = True
%>
<form method=\"POST\" action=\"dropdown.asp\">
<p align=\"center\"><select style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF\" size=\"1\" name=\"url\">
<option value=\"\">..:: Links ::..</option>
<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
if Request.form(\"url\") <> \"\" then
  Response.Redirect Request.form(\"url\")
else
  Response.Redirect \"drowdown.asp\"
end if
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from drop\")
Do until rs.eof
%>
<option value=<%=rs(\"value\")%>><%=rs(\"dropout\")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
      </select><br>
<br>
<input type=\"submit\" value=\"Gå til siden\" style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF; border-style: solid; border-width: 1\"></p>
</form>

Argh stavefejl:

<%
Response.Buffer = True
%>
<form method=\"POST\" action=\"dropdown.asp\">
<p align=\"center\"><select style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF\" size=\"1\" name=\"url\">
<option value=\"\">..:: Links ::..</option>
<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
if Request.form(\"url\") <> \"\" then
  Response.Redirect Request.form(\"url\")
else
  Response.Redirect \"dropdown.asp\"
end if
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from drop\")
Do until rs.eof
%>
<option value=<%=rs(\"value\")%>><%=rs(\"dropout\")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
      </select><br>
<br>
<input type=\"submit\" value=\"Gå til siden\" style=\"font-family: Arial; font-size: 10 pt; background-color: #00FFFF; border-style: solid; border-width: 1\"></p>
</form>