hi guys, a little help if you please, database work is most definitely NOT my strongpoint. anyhow i’m trying to set up this board on a new site that has to use a database folder outside the main content folders to hold an access database named ‘example.mdb’ the code states that we’re creating a ‘dsn-less’ connection… but i think i need to create a dsn connection, maybe you can see if there’s some obvious problems with the code below? … i am 2 folders deep in the main directory so i don’t think actually getting to the database file is the problem, thanks for the help!
dd
<%@Language=“VBScript”%>
<%
'================
’ ex1-emails.asp
’ For Flash 4
‘================
’ Very good practice to include this line
Option Explicit
’ RecordSet and Connection objects, and SQL string
Dim oRS, oConn, strSQL
Dim results
Set oConn = Server.CreateObject(“ADODB.Connection”)
Set oRS = Server.CreateObject(“ADODB.Recordset”)
’ Make a DSN-less connection to the DB
oConn.Open “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Server.MapPath("…/…/database/example.mdb")
’ Open our recordset accordingly
If UCase(Request(“NameLast”)) = “” Then
strSQL = “SELECT * FROM Emails ORDER BY ID DESC”
Else
strSQL = “SELECT * FROM Emails WHERE NameLast LIKE '” & Request(“NameLast”) & "’"
End If
oRS.Open strSQL, oConn, 2, 3
’ 2 and 3 are numeric equivalents of adOpenDynamic and adLockOptimistic.
’ These are the best choices for what we’re trying to accomplish.
’ See ADO documentation for other cursor and lock types.
If oRS.EOF Then
Response.Write “success=False”
Else
Response.Write “success=True&results=”
Do While Not oRS.EOF
results = results & oRS (“NameFirst”) & " " & oRS(“NameLast”) & vbCr
results = results & oRS(“EmailAddress”) & vbCr
results = results & oRS(“Message”) & vbCr & “--------------------------------” & vbCrLf
oRS.MoveNext
Loop
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Response.Write Server.URLEncode(results)
%>
