Jag har testat att byta ut
Connect.execute(SQL)
mot
Response.write SQL
svaret blev:
Insert INTO statestik (Datum, IP-nummer, Browser) VALUES('', '', '')
Det är kanske på sin plats att berätta att jag endast kan testa sidan en gång, sedan åker jag på att starta om datorn. Det kanske beror på att jag sitter och leker på en gammal P100 iof
Vide har nog missat lite där i koden.
Han frågar efter några variabler som ska skickas med ett form (request.form). Men några sådana skickas ju inte, eftersom det är indexsidan vi håller på med. Eller hur?
Det var ju "liksom" det som denna koden var till för.
Dim datum, ip, browser
datum = Date
ip = Request.ServerVariables("REMOTE_ADDR")
browser = Request.ServerVariables("HTTP_USER_AGENT")
Det här är min lösning:
<html>
<head><title>Indexsidan</title></head>
<body>
<%
Dim cn,SQL
SQL = "Insert INTO statistik (Datum, IP-nummer, Browser) VALUES('"&now()&"', '"&Request.ServerVariables("REMOTE_ADDR")
&"', '"&Request.ServerVariables("HTTP_USER_AGENT")&"')"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\statestikdb.mdb"
cn.Execute(SQL)
%>
</body>
</html>
Kolla stavningen på statistik också. Vet inte ifall felstavningen var medveten från ditt håll