Ta bort citationstecknen i slutet:
Response.Redirect "default.asp?visaSida=read_gb&tillID=" & Session("tillID")
3 svar · 313 visningar · startad av hallmert
<!-- #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") ""
Ta bort citationstecknen i slutet:
Response.Redirect "default.asp?visaSida=read_gb&tillID=" & Session("tillID")
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)
Nej, det har att göra med att du inte skickar något värde i tillID via querystringen.