Skærmopløsning og browserstørrelse, skriv til databse

Prøv at ændre survey.asp til noget der minder om det her

<%
' Her angives ved hvilken sidevisning der skal måles
If Session("survey") = 1 Then


dim conn

function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName

end function

OpenConn("dinDB.mdb")


' SQL sætning opbygges
strSQL = "Insert into TABEL (bw,bh,sw,sh) values('"& Request("bw") &"','"& Request("bh") &"','"& Request("sw") &"','"& Request("sh") &"',)"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

End If

Session("survey") = Session("survey") + 1
%>


Mikkel

Er lige et komma for meget i SQL sætningen
strSQL = "Insert into TABEL (bw,bh,sw,sh) values('"& Request("bw") &"','"& Request("bh") &"','"& Request("sw") &"','"& Request("sh") &"',)"

skal ændres til

strSQL = "Insert into TABEL (bw,bh,sw,sh) values('"& Request("bw") &"','"& Request("bh") &"','"& Request("sw") &"','"& Request("sh") &"')"

Nu har jeg siddet og leget lidt med eksemplet fra html.dk. Men har kun fået det til at virke én gang, har det noget med Session at gøre, eller hvad kan det være. Er lidt træls når man sidder og tester.

Skyldes nok at en session er på 20 min default

Prøv at rette "Session("survey") = Session("survey") + 1" til
Session.abandon

Aner ik om det virker, men se hvad der sker :o)

Det ser ikke lige ud til det.
Mærkeligt det er som om at nogle gange virker det og andre gange skal man prøve rigtigt mange gange før det registreres.

Prøv for testens skyld at rette til det her..
Om ik andet for at se om du kan lure hvad der egentlig sker...

Har du læst den der henvisning på hrml.dk om sidehenvisning? Måske der står noget der

<%

For i=1 to 25
' Her angives ved hvilken sidevisning der skal måles
If Session("survey") = i Then


dim conn

function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName

end function

OpenConn("dinDB.mdb")


' SQL sætning opbygges
strSQL = "Insert into TABEL (bw,bh,sw,sh) values('"& Request("bw") &"','"& Request("bh") &"','"& Request("sw") &"','"& Request("sh") &"',)"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

End If

Next

Session("survey") = Session("survey") + 1
%>

Kan desværre ikke få det til at virke optimalt.
Men du kan lige ligge et svar for forsøget.

Bare behold dem selv..

Ærgeligt det ikke kom til at virke..

Okay, takker igen.