Jeg har læst følgende artikel, men kan ikke finde ud af hvordan
jeg skal få det ind i min kode.
http://www.brinkster.com/Articles/Databases/SecureAccess.asp
Her er den kode jeg har:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * From tabel Order by Id Asc"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
strNavn = rs("tabel")
strLink = "· <a href=""visside.asp?id=" & rs("Id") &
""">" & strNavn & "</a>"
Response.Write "<tr><td>" & strLink & "</td></tr>" & VbCrLf
rs.MoveNext
Loop
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
Når jeg så har omskrevet det, har jeg fået det til at se sådan
ud:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
DSN = DSN & "PWD=yourpassword"
Conn.Open DSN
strSQL = "Select * From tabel Order by Id Asc"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
strNavn = rs("tabel")
strLink = "· <a href=""visside.asp?id=" & rs("Id") &
""">" & strNavn & "</a>"
Response.Write "<tr><td>" & strLink & "</td></tr>" & VbCrLf
rs.MoveNext
Loop
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
Hvilket fremkalder følgende fejlmeddelse:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to
open registry key 'Temporary (volatile) Jet DSN for process 0x6c0
Thread 0x6ac DBC 0x2296c1c Jet'.
--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! =>
http://www.html.dk/job