Ingen fejlmelding men..........???

hmmm....det er et par merkelige ting i din kode...

1) din SQL...hvorfor ?? du vil jo kun ha mulighet for å lese den første oppføring av \'referent\' i din database. Jeg tror helle du mener å skrive:

Sql = \"Select * From Referal WHERE Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\'\"

2) Din if vil aldri vær true med mindre IP = den aller første IP i din database.

2) Din andre SQL...\'Set Hit = Hit + 1\' vil gi en feilmelding. Du får ikke denne feilmelding fordi du aldri kommer inn i denne if

jeg regner med at du ønsker å gjøre dette:

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"referal.mdb\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

Sql = \"Select * From Referal WHERE Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\'\"
Set Rs = Conn.Execute(Sql)

if( Rs.BOF ) then
  SqlHit = \"Update Referal set Hit = ( SELECT Hit FROM Referal WHERE Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\' ) + 1 Where Id = \" & Request.ServerVariables(\"HTTP_REFERER\")
  Conn.Execute(SqlHit)
End If
%>

Det ser mere rigtigt ud men den opdatere stadig ikke i db´en jeg forstår det ikke helt ?

Mvh. Martin

er du sikker på at den går inn i din if ?

Jeg er ikke så god til det med If, then og Else
men skulle der ikke istedet for

if( Rs.BOF ) then

Stå som her

if not (Rs.BOF OR Rs.EOF ) then

Ellers må du prøve at forklare hvad  du mener ?

Mvh. Martin

websam >> hvis det ikke er noen resultat i forespørselen, så vil cursoren være \'BOF\'. Det er ikke nødvendig med andre test for å finne ut hvor cursoren står...

Godt, så ved jeg ikke hvad du mener med om den kommer ind i min If ?

Det eneste kode der er på siden er det du lige
skrev kan du forklare hvad du mener ?

Mvh. Martin

betingelsene du setter i en if...then returnerer *alltid* enten true eller false. hvis betingelsene returnerer true, så \'går den inn\' i if\'en:

if( 1=1 ) then
  \' betingelsene her (1=1) returnerer true, derfor \'går den inn\' i min if
end if

if( 1=2 ) then
\' betingelsene her (1=2) returnerer false, derfor \'går den *ikke* inn\' i min if
end if

Så blev jeg det klogere !

Det vil altså sige at hvis der i min kolonne
Referent under id 1 står http://www.firmanavn.dk/
og det er denne side der kommer besøgende fra så
skulle den oxo gå ind i min If og opdatere db´en
efter den stump kode du sendte mig.
Men det sker bare ikke. Jeg må rode lidt mere
med det.

Mvh. Martin

så er det npe galt med din UPDATE SQL...prøv denne:

SqlHit = \"Update Referal set Hit = ( SELECT Hit FROM Referal WHERE Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\' ) + 1 Where Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\'\"

/nute
 

Stadig samme resultat jeg gir op lige nu er ved at få grå hår i hovedet :-(

Men alligevel tak for hjælpen !

hvis den ikke oppdaterer så er du iallefall nødt til å få en feilmelding...har du en link jeg kan kikke på ?

Nej det har jeg ikke da det køre internt
men jeg kan sende dig de sider jeg roder med
hvis du vil se dem og evt hjælpe mig ?

ok...send de nødvendige filer...

Øhhh... hvor finder jeg lige din email add ???

ved å klikke på mitt brukernavn...

denne fungerer for meg:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"referal.mdb\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

Sql = \"Select * From Referal WHERE Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\'\"
Set Rs = Conn.Execute(Sql)

if( NOT Rs.BOF AND NOT Rs.EOF ) then
  SQLCount = \"SELECT hit FROM Referal WHERE Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\'\"
    countRS = Conn.Execute( SQLCount )
    hit = countRS(\"hit\")
  SqlHit = \"Update Referal set hit = \" & (CInt(hit)+ 1) & \" Where Referent = \'\" & Request.ServerVariables(\"HTTP_REFERER\") & \"\'\"
    Conn.Execute(SqlHit)
End If
%>
<html>

<head>
</head>

<body>
<p><a href=\"Links.asp\">Links</a></p>

</body>

</html>


/nute

Websam bøjer sig i støvet for \"nute\"
helt vildt sejt !!!

1000 Tak for hjælpen :-))

selv takk...