9 svar · 303 visningar · startad av MickeA.com
Hej Svejs.
Håller på att göra en iplogg som jag ska ha på min sida.
Den använder asp och en accessdatabas.
Såhär ser aspkoden ut, ligger i indexsidan.asp:
<%
Response.Expires = -1000
option explicit
Dim oConnection
Dim oRecordset
Dim strSQL
Dim datum
Dim ipadress
Dim user_server
Dim browser
datum = Now()
ipadress = Request.Servervariables("REMOTE_ADDR")
user_server = Request.Servervariables("REMOTE_HOST")
browser = Request.Servervariables("HTTP_USER_AGENT")
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ip_logg_expert.mdb"))
strSQL= "INSERT INTO data (Datum, Ipadress, Webserver, Browser) VALUES ('" & datum & "', '" & ipadress & "', '" & user_server & "', '" & browser & "')"
Set oRecordset = oConnection.Execute(strSQL)
Set oConnection = NOTHING
Set oRecordset = NOTHING
%>
Databasen, "ip_logg_expert.mdb" har en tabell, som heter "data".
I den finns kolumnerna "Datum", Ipadress, "Webserver" & "Browser".
Resultatet som det blir nu, så får jag inga felmeddelanden överhuvudtaget, men när ajg laddar ner databasen och öppnar den, är den HELT TOM !!!
Hur ska det se ut på riktigt??
Vad har du Response.Expires = -1000 for?
Sen har nog inte detta nagon betydlse just nu, men datum, ar det av text eller datum format i db'n? Isafall ska du ha # runt datum.... sen har du pa "Vanliga felmeddelanden...." eller vad det heter!
sen skriv ut sql:en, da ser du vad som sker! (response.write strSQL innan du kor den)
Ett annat tips, skapa inte recsettet, onodigt, kor oConnection.Execute strSQL,,128
;)
Hur exekveras den där sidan? Ligger den som en include på varje sida?
Option Explicit
Dim oConnection
Dim strSQL
Dim datum
Dim ipadress
[b]Dim lngRes[/b]
Dim user_server
Dim browser
datum = Now()
ipadress = Request.Servervariables("REMOTE_ADDR")
user_server = Request.Servervariables("REMOTE_HOST")
browser = Request.Servervariables("HTTP_USER_AGENT")
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ip_logg_expert.mdb"))
strSQL= "INSERT INTO data (Datum, Ipadress, Webserver, Browser) VALUES " & _
"('" & datum & "', '" & ipadress & "', '" & user_server & "', '" & browser & "')"
oConnection.Execute(strSQL)[b], lngRes, 128[/b]
[b]Response.Write strSQL & vbcrlf & lngRes[/b] [blue]' Skriver ut sql:en samt hur många rader som matades in i db:n[/blue]
Set oConnection = NOTHING
Det kan hjälpa dig att se om det händer något...
da vill jag ha sql:en tack ;)
Ok, tack, lite nya idéer fick jag av det, tror jag, men det var SBSB (SkitBakom Spakarna) som vanligt...
Hade glömt o kommentera bort strSQL, så den kördes aldrig, så det var inte SÅ konstigt att det inte hände ngt ;))
Va?? Vad är det??
Läs det finstilta ;)
Jaja, klart jag skulle, ibland är man bra dum ;)