I've got an Access database which I'd like to make available on web server. I would like to create a drop down option on a web page to allow a user to pick which topic they'd like information on. The drop down menu contains the primary key of the table I'm querying. I would like to use a dsn less connection? Can anyone help me with regard to the ASP file and HTML file I need to use
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Access and ASP 1
- Thread starter shane01
- Start date
-
1
- #2
this should get you started
all you need to do is add the DB name and tbl name plus the name of the rs to fill the select
<HTML>
<BODY>
<%
' declare variables
Dim Conn
Dim RS
Dim strConn
Set conn = Server.CreateObject("ADODB.Connection"
'set path to DB dsn-less
strConn="Driver=Microsoft Access Driver (*.mdb); DBQ=" & server.mappath("/database.mdb"& ";"
'sql statement
SQLstmt="SELECT * FROM tbl"
Set RS = Server.CreateObject("ADODB.RecordSet"
conn.Open strConn
'
Set RS = Conn.Execute(SQLstmt)
%>
<FORM name="form1">
<SELECT NAME="sel1">
<%
Do While Not RS.EOF
Response.Write ("<OPTION value='" & RS("PARTDESCRIPTION" & "'>"
Response.Write ("</OPTION>"
rs.MoveNext
Loop
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
</SELECT>
</FORM>
</BODY>
</HTML> I help at your own risk, if I brake it sorry! But if I fixed it, let me know with a
![[thumbsup2]](/data/assets/smilies/thumbsup2.gif "[thumbsup2] [thumbsup2]")
admin@onpntwebdesigns.com
all you need to do is add the DB name and tbl name plus the name of the rs to fill the select
<HTML>
<BODY>
<%
' declare variables
Dim Conn
Dim RS
Dim strConn
Set conn = Server.CreateObject("ADODB.Connection"
'set path to DB dsn-less
strConn="Driver=Microsoft Access Driver (*.mdb); DBQ=" & server.mappath("/database.mdb"
& ";"'sql statement
SQLstmt="SELECT * FROM tbl"
Set RS = Server.CreateObject("ADODB.RecordSet"
conn.Open strConn
'
Set RS = Conn.Execute(SQLstmt)
%>
<FORM name="form1">
<SELECT NAME="sel1">
<%
Do While Not RS.EOF
Response.Write ("<OPTION value='" & RS("PARTDESCRIPTION"
& "'>"Response.Write ("</OPTION>"
rs.MoveNext
Loop
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
</SELECT>
</FORM>
</BODY>
</HTML> I help at your own risk, if I brake it sorry! But if I fixed it, let me know with a
admin@onpntwebdesigns.com
snowboardr
Programmer
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question