Det fungerar som jag vill men sen när det ska lagras eller uppdateras registeras det inte i databasen.
koden är
<code>


<%

function inloggning

If id = "" Then
Response.redirect "http://a.domaindlx.com/plugget/"
Else

' registrering i databasen börjar.
Set con = Server.CreateObject("adodb.connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("Dbq/community.mdb")& ";"
Response.write id & "<br>" 'id får id värdet när användaren loggas in.

Sql="Select * From Inlogning Where UserId ='" & id & "'"

If not rst.eof Then

Con.execute("update Inlogning Set [in] = [in] + 1 Where Userid ='" & Id & "'")

Else

Sql ="Insert Into Inlogning"
Sql = Sql & "(UserId,[In])"
Sql = Sql & "Values('" & id & "','" & id & "')"
Response.write sql
Response.end
Set Rst = Con.execute(sql)

End if

' kod slut för registrering i databsen.
End if
' kod för om id har null värde körs inte updatering eller registeringen i databasen.
End function


%>

</code>
Den här koden vill inte lägga till det i databasen och uppdatera sen om det finns.
men
Response.write Id den funkar den skriver ut rätt id.
vad är då fel när halv koden funkar men jag ser inte felet.
Kanske jag som är ord blind och ser inte felet.
Därför vänder jag mig till forumet.

Du skapar inget recordset efter raden:

<code>
Sql="Select * From Inlogning Where UserId ='" & id & "'"
</code>

fel

?

Men även om jag inte response.end
så lägger den inte till det i databsen vad är då fel?

Problemet är nu löst.
Det var för jag inte hade recordset med när den skulle köra sql strängen.
så nu fungerar det 100%
Men kan vara bra att skriva svar på felet när man har löst det för att underlätta för andra. Då dom också kan ha liknande fel då kan dom ev se andras inlägg som dom har löst därför skriver jag svar på felet i min kod.
<code>
<%

function inloggning

If id = "" Then
Response.redirect "http://a.domaindlx.com/plugget/"
Else

' registrering i databasen börjar.
Set con = Server.CreateObject("adodb.connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("Dbq/community.mdb")& ";"
'Response.write id & "<br>"
Sql="Select * From Inlogning Where UserId ='" & id & "'"
</code>
Då har inte Rst fått något värde där av blir det inget av med if satsen därför blir det inte det för else och efter else. ville bara säga vad felet ligger att jag inte använder någon Rst.
<code>
Alltås jag missade det här.
Set Rst = Con.execute(Sql) 'det var den här radne jag hade missat därför funka inte
sidan som det skulle.
</code>
<code>
If not rst.eof Then

Con.execute("update Inlogning Set [in] = [in] + 1 Where Userid ='" & Id & "'")

Else

Sql ="Insert Into Inlogning"
Sql = Sql & "(UserId,[In])"
Sql = Sql & "Values('" & id & "','" & 1 & "')"
Response.write sql
Set Rst = Con.execute(sql)

End if

' kod slut för registrering i databsen.
End if
End function


%>
</code>

Det var det jag menade med mitt första inlägg =)