---
title: "Fel med att ta bort gästbok"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/120537-fel-med-att-ta-bort-gästbok"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hallmert"
published: "2005-01-19T17:03:31.000Z"
updated: "2005-01-19T17:44:52.000Z"
replies: 3
views: 324
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/120537-fel-med-att-ta-bort-gästbok"
---

# Fel med att ta bort gästbok

## #1 — hallmert, 2005-01-19T17:03Z

```
<!-- #include file="adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb Where ID=" &Request.QueryString("delID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.Delete

	RecSet.Update
	RecSet.Close
	Set RecSet = nothing
	Set Connect = nothing

Response.Redirect "default.asp?visaSida=read_gb&tillID=" & Session("tillID") "" 
%>
```

Ger fel:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/jobb/theevents.net/delete_gb.asp, line 19, column 77

Why?

Rad 19 är alltså:

```
Response.Redirect "default.asp?visaSida=read_gb&tillID=" & Session("tillID") ""
```

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

## #2 — MatsJ, 2005-01-19T17:07Z

Ta bort citationstecknen i slutet:

```
Response.Redirect "default.asp?visaSida=read_gb&tillID=" & Session("tillID")
```

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

## #3 — hallmert, 2005-01-19T17:11Z

Nu fick jag ett nytt fel!

```
	<%
	Set MinCon = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.Recordset")
	MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/fanclub.mdb")
	
	Const perSida = 10
	Sidan = Request.QueryString("sida")
	If Sidan = "" then 
	sida = 1 
	Else 
	sida = Sidan 
	
	End If 
	
	With rs
	  .CursorLocation = 3
	  .CacheSize = perSida 
	End With
	
	MinCon.execute("update gb set readed=1 where tillid = "&Session("id") ) 
	
	SQL = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By ID DESC"
	
	rs.Open SQL, MinCon
	
	With rs
	  .MoveFirst 
	  .PageSize = perSida 
	  .AbsolutePage = sida
	End With
	
	Sidor =  rs.PageCount
	
	Count = 0 
	
	color = "#9A8C81"
	Do While Not rs.EOF And Count < rs.PageSize 
	If color = "#786B61" Then
	color = "#9A8C81"
	Else
	color = "#786B61"
	End If	
	
	%>
```

Fel på denna rad:
Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'tillID ='.
/jobb/theevents.net/read_gb.asp, line 44

dvs:    
	

```
rs.Open SQL, MinCon
```

Kan de ha med att göra att jag inte har något Connect.Close i föregående kodsnutt? (den som är 2-3 poster upp)

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

## #4 — @nders, 2005-01-19T17:44Z

Nej, det har att göra med att du inte skickar något värde i *tillID* via querystringen.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/120537-fel-med-att-ta-bort-gästbok