|
|
|
|
|
| | |
| |
PowerASP active server pages asp.net microsoft .net framework sdk learn asp what is asp tutorial learn asp.net CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
What the hell is wrong here!!?? |
|
From: |
Chris |
|
Date: |
7/21/1999 11:55:32 AM |
|
IP: |
195.82.215.233 |
Im trying to make a drop down menu from a database but i get an error an I cant find what the problem is.
This is the error:
Microsoft VBScript runtime error 800a000d
Type mismatch: [undefined]
<db/Default.asp, line 16
This is the code:
<%
Set tempConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("pulldown.mdb")
tempConn.Open strDSN
strSQL = "SELECT LinkID, LinkURL FROM Links ORDER By LinkURL"
Set rs = tempConn.Execute(strSQL)
%>
<html>
<body>
</body>
</html>
<form action=default.asp method=post>
<select name=Link onChange=submit()>
<%
CurrentRecord = 0
Do While CheckRS(LinkRS)
If (Request.Form("Link") = LinkRS("LinkURL")) Then
%>
<option selected value="<%= LinkRS("LinkURL") %>"><%= LinkRS("LinkID") %></option>
<%
Else
%>
<option value="<%= LinkRS("LinkURL") %>"><%= LinkRS("LinkID") %></option>
<%
End If
LinkRS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%>
</select></form>
<%
Connection.Close
If Not (Request.Form("Link") = "") Then
response.redirect(Request.Form("Link"))
End If
%>
|
Follow Up - Re: What the hell is wrong here!!?? - Tod Filer 8/4/1999 6:59:05 PM
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
