Utan kör det under sql-uttrycket. Jag har testat och böjt på det mesta nu och kommit fram att om jag byter plats på dem båda sql så körs den undre sql-uttrycket. Så något är knas. Jag uppskattar verkligen om ni skulle kunna lösa detta tillsammans med mig. Jag har rivit mig i håret ca en månad nu.
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\************.mdb"
strSQL = "Select id from tbluppgifter where strusername = " & _
SQLText(Request.Form("client")) & " and strpassword = " & _
SQLText(Request.Form("password"))
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open strSQL, Con
If Not RecSet.EOF Then
Session("authentication") = "yes"
Session("id") = RecSet("id")
'Uppdatera databasen med användarens IP och sedan plussa på med ett på inloggningsräknaren.
[b]strSQL = "UPDATE tbluppgifter SET strlastIP = '" & Request.ServerVariables("REMOTE_ADDR") & "' WHERE id = " & RecSet("id")[/b]
[b]strSQL = "UPDATE tbluppgifter SET strbesok=strbesok+1 WHERE id = " & RecSet("id")[/b]
Con.Execute strSQL, , 128
RecSet.Close
Set RecSet = Nothing
Con.Close
Set Con = Nothing
Response.Redirect "/swe/index.asp"
Else
'Stäng anslutningen till databasen
RecSet.Close
Set RecSet = Nothing
Con.Close
Set Con = Nothing
PeeerMedlem sedan mars 20025 907 inläggInte så konstigt egentligen. Du lagrar sql-satsen i en variabel, sen skriver du över variabeln med en annan sql-sats på raden under. :)
strSQL = "UPDATE tbluppgifter SET strlastIP = '" & Request.ServerVariables("REMOTE_ADDR") & "' WHERE id = " & RecSet("id")
Con.Execute strSQL, , 128
strSQL = "UPDATE tbluppgifter SET strbesok=strbesok+1 WHERE id = " & RecSet("id")
Con.Execute strSQL, , 128
Tack Peeer!
Äntligen har man fått det förklarat. Nu fungerar det som det var tänkt :)