Updatera om inte URL finns..

4 svar · 229 visningar · startad av Urre 9 feb. 2001

UrreMedlem sedan feb. 200113 inlägg

Trådstart9 feb. 2001 14:19#1

Har kopierat nån hit counter och skall nu få den att räknaupp fält fältet counter med 1 varje gång nån klickar på länken och samtidigt lägga till URL:en men det vill den inte göra.. Om nån kan hjälpa mig vore jag tacksam här kommer koden för filen counter.asp man anropar scriptet genom att skriva länken <a href=counter.asp?URL=sida.asp">

<% Response.Buffer=TRUE 
if request("URL")<>"" then
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Counter1.mdb") 

URL=request.querystring("URL") 

strsql = "SELECT * FROM Counter WHERE URL = '" & URL & "'" 

Set rs = Server.CreateObject("ADODB.RecordSet")
RS.open strsql, oConn, 3, 3
if not rs.eof then
rs("Counter")=rs("Counter")+1
rs("URL") = URL
rs.update
rs.Close
set rs=nothing
oConn.Close
end if 

response.redirect URL
end if %>

@ndersMedlem sedan juni 200032 967 inlägg

9 feb. 2001 14:27#2

får du något felmeddelande?

UrreMedlem sedan feb. 200113 inlägg

9 feb. 2001 14:31#3

Nä det funkar den skickar vidare en till sidan man vill ha men den lägger inte till URL:en i databasen utan det måste man göra själv.. Så det jag vill att den skall göra är att lägga till URL:en och öka counter fältet med 1...

emissionMedlem sedan dec. 19996 721 inlägg

9 feb. 2001 16:16#4

Det finns ju inget i funktionen som gör att URL:ar läggs till.

if not rs.eof then
rs("Counter")=rs("Counter")+1
else
rs.Addnew
rs("Counter")=1
rs("URL") = URL
end if
rs.update
rs.Close

UrreMedlem sedan feb. 200113 inlägg

9 feb. 2001 16:49#5

A jag fick det att funka. Gjorde typ på samma sätt... Men tack ändå...