community gb problem

min gästbok till mitt community slutade idag fungera. Det blir ingen error, utan inlägget visas bara inte, och det förs inte in i databasen heller när jag kollar efter nån som ser vad som kan vara fel???

<%
nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("*****")&";pwd=****"
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='" & request.querystring("id") & "' order by id desc"
rs.Open Addera, Connect, 3, 3

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&request.querystring("id")&"'"
rs1.Open Addera, Connect, 3, 3

if request.querystring("action")="tabort" then

Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where id = '"&request.querystring("id")&"'
rs.Open Addera, Connect, 3, 3
if rs("namn")=session("id") then
response.redirect "gastbok.asp?id="&session("id")
end if
rs.delete
rs.update
response.redirect "gastbok.asp?id="&session("id")
end if

if request.querystring("id") = session("id") then
Set rs5 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='"&request.querystring("id")&"' and last=0"
rs5.Open Addera, Connect, 3, 3
if not rs5.eof then
do until rs5.eof
rs5("last")=1
rs5.update
rs5.movenext
loop
response.redirect "gastbok.asp?id="&session("id")
end if
end if

if request.querystring("action")="spara" then
if session("id") <> request.querystring("id") then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("****")&";pwd=****"
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='" & request.querystring("id") & "' order by id desc"
rs.Open Addera, Connect, 3, 3

rs("namn")= session("anv")
rs("inlagg")=request.form("inlagg")
rs("gbid")= request.querystring("id")
rs("namnid")=session("id")
rs("datum") = now

sql = "Insert Into gb(namn, inlagg, gbid, namnid, [datum])"&"Values('"& session("anv")& "',"&"'"& request.form("inlagg") &"',"&"'"& request.querystring("id") &"',"&"'"& session("id")& "','"& now &"')"

Connect.execute(sql)
Connect.close

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("*******")&";pwd=*******"
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM anv where id='"&session("id")&"'"
rs2.Open sql, Connect, 3, 3
gast = rs2("gast")
status = rs2("status")
sql="update anv SET status=" &status + poanggastbok&", gast=" &gast + 1&" &nbspwhere id='"&session("id")&"'"
Connect.execute(sql)
Connect.close

response.redirect "gastbok.asp?id="&request.querystring("id")
end if
end if

rs.PageSize = 10
if not rs.EOF then
rs.AbsolutePage = nextPage
%>
<% END IF %>

Är datatyperna "Tal" där du använder

request.querystring("id")

Isf ska du inte ha med några enkelfnuttar

Addera = "SELECT * FROM gb where gbid=" & request.querystring("id") & " order by id desc" 

Addera = "SELECT * FROM gb where gbid= " & request.querystring("id") & " and last=0" 

osv...

Du verkar ha en massa onödiga "&" tecken i ditt insert statement.

Varför har du t ex ett "&" tecken framför "Values" ?

"&"Values

hm..

alla extra "&" är borttagna nu, och det du skrev är ändrat, allt ska funka, men det sparas inte!

Om du skriver ut din sql, hur ser den ut då?