webForumDet fria alternativet

Fel med att ta bort gästbok

ASP

3 svar · 313 visningar · startad av hallmert

Medlem sedan dec. 2004182 inlägg
Frågan#1
<!-- #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") ""
Medlem sedan apr. 2004459 inlägg
#2

Ta bort citationstecknen i slutet:

Response.Redirect "default.asp?visaSida=read_gb&tillID=" & Session("tillID")
Medlem sedan dec. 2004182 inlägg
#3

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)

Medlem sedan juni 200032 967 inlägg
#4

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

273 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
134 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
133 ms — ändringar (db)