webForumDet fria alternativet

Den vill inte köra det första utan..

ASP

2 svar · 199 visningar · startad av medialabs

Medlem sedan mars 20023 686 inlägg
Frågan#1

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
Medlem sedan mars 20025 907 inlägg
#2

Inte 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
Medlem sedan mars 20023 686 inlägg
#3

Tack Peeer!

Äntligen har man fått det förklarat. Nu fungerar det som det var tänkt :)

247 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
118 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
117 ms — ändringar (db)