---
title: "community gb problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88109-community-gb-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Skatedragon"
published: "2003-10-09T19:15:06.000Z"
updated: "2003-10-09T20:29:18.000Z"
replies: 4
views: 264
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/88109-community-gb-problem"
---

# community gb problem

## #1 — Skatedragon, 2003-10-09T19:15Z

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 %\>

Permalänk: https://www.webforum.nu/p/88109

## #2 — SteveP, 2003-10-09T19:24Z

Ä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...
```

Permalänk: https://www.webforum.nu/p/1181021

## #3 — SteveP, 2003-10-09T19:34Z

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

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

"&"Values

Permalänk: https://www.webforum.nu/p/1181033

## #4 — Skatedragon, 2003-10-09T19:39Z

hm..

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

Permalänk: https://www.webforum.nu/p/1181036

## #5 — solbulle, 2003-10-09T20:29Z

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

Permalänk: https://www.webforum.nu/p/1181057

---

Tråden på webben: https://www.webforum.nu/amne/asp/88109-community-gb-problem