har ett litet problem med sökvägen med följande kod:
<%
' ** Funktionen kopplar upp ett Connection-objekt mot databasen och returnerar sedan detta : **
Function GetConnection()
Dim Conn, AuthConnectionString
Set Conn = Server.CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & Server.MapPath(".") & "'databas.mdb;DefaultDir=" & Server.MapPath("/") & ";" & _
"Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;UID=;"
Conn.open AuthConnectionString
Set GetConnection = Conn
End Function
' ** Funktionen kopplar upp ett Connection-objekt mot databasen och returnerar sedan detta : **
Function GetConnection()
Dim Conn, AuthConnectionString
Set Conn = Server.CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & Server.MapPath("../../../db/databas.mdb") & _
"Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;UID=;"
Conn.open AuthConnectionString
Set GetConnection = Conn
End Function
' ** Funktionen GetConnection SLUT **
men kommer fram "sidan kan inte visas" när man trycker på ladda upp :S
' ** Funktionen kopplar upp ett Connection-objekt mot databasen och returnerar sedan detta : **
Function GetConnection()
Dim Conn, AuthConnectionString
Set Conn = Server.CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & Server.MapPath("../../../db/databas.mdb") &
;"Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;UID=;"
Conn.open AuthConnectionString
Set GetConnection = Conn
End Function
' ** Funktionen GetConnection SLUT **