12. april 2002 - 18:16
Der er
2 kommentarer og
1 løsning
Hvordan?
Hej jeg har denne stykke kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN
' SQL sætning opbygges
strSQL = "Insert into logs ("
strSQL = strSQL & "navn, "
strSQL = strSQL & "units, "
strSQL = strSQL & "side, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "tid, "
strSQL = strSQL & "ip) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'rs("navn")', "
strSQL = strSQL & "'rs("units")', "
strSQL = strSQL & "'katrs("navn")', "
strSQL = strSQL & "'#date()#', "
strSQL = strSQL & "'#time()#', "
strSQL = strSQL & "'Request.ServerVariables("REMOTE_ADDR")')"
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
hvordan er det nu man laver det rigtigt?
12. april 2002 - 18:27
#2
Noget i den stil her?
Hvis du har nogen numeriske felter, skal du fjerne '' udenom dem.. f.eks:
strSQL = strSQL & rs("units")&", "
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN
' SQL sætning opbygges
strSQL = "Insert into logs ("
strSQL = strSQL & "navn, "
strSQL = strSQL & "units, "
strSQL = strSQL & "side, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "tid, "
strSQL = strSQL & "ip) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'"&rs("navn")&"', "
strSQL = strSQL & "'"&rs("units")&"', "
strSQL = strSQL & "'"&katrs("navn")&"', "
strSQL = strSQL & "#"&date()&"#, "
strSQL = strSQL & "#"&time()&"#, "
strSQL = strSQL & "'"&Request.ServerVariables("REMOTE_ADDR")&"')"
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
