uppdatera eller lägga till

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan26 aug. 2004 15:59#1

Har lite problem med den här koden. Om inte IP-numret finns (Address) så ska den lägga till en rad, annars ska den uppdatera raden med 1

Finns inte adressen så läggs den till och Visits sätts till ett, finns en så ska den uppdateras och Visits ska uppdateras med 1 och bli 2

strHost = Request.ServerVariables("REMOTE_HOST")
strAddress = Request.ServerVariables("REMOTE_ADDR")
nowDate = Now()

If not strAddress="&Address&" Then
	SET objConn = connect()
	count = "INSERT INTO tblStats"
	count = count & "(Host, Address, countDate,Visits) "
	count = count & "VALUES('"& strHost &"','"& strAddress &"','" & nowDate & "',1)"
	objConn.Execute count
else
update="UPDATE tblStats SET Visits=Visits + 1 WHERE Address='"&strAddress&"' AND nowDate="&nowDate&""
objConn.Execute update

End If

VideMedlem sedan dec. 19998 577 inlägg

27 aug. 2004 08:37#2

Något sånthär?

strHost = Request.ServerVariables("REMOTE_HOST")
strAddress = Request.ServerVariables("REMOTE_ADDR")
nowDate = Now()

set objConn = connect()

[b]strSQL = "select count(*) from tblStats where Address = '" & strAddress & "'"
set rsResults = objConn.Execute( strSQL )[/b]

If [b]rsResults( 0 ) = 0[/b] Then
	count = "INSERT INTO tblStats"
	count = count & "(Host, Address, countDate,Visits) "
	count = count & "VALUES('"& strHost &"','"& strAddress &"','" & nowDate & "',1)"
	objConn.Execute count
else
update="UPDATE tblStats SET Visits=Visits + 1 WHERE Address='"&strAddress&"' AND nowDate="&nowDate&""
objConn.Execute update

End If