01. marts 2009 - 18:39Der er
4 kommentarer og 1 løsning
expected end.. sql sætning..
Error Type: Sun ONE ASP VBScript compilation (0x800A03F6) Expected 'End' /del.asp, line 7, column 50
får denne fejl
<% if session("neger") = "ko" then Dim sConnection, objConn , objRS sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=*******; UID=*********;PASSWORD=*********; OPTION=3" Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open(sConnection) ----> 7 myConn.execute = "Delete from Nyhed where Id = "request.QueryString("nyhedsid")"" response.Redirect("Nyheder.asp") else response.Write("Dette har du ikke ret til") %> <a href="Nyheder.asp">Tryk her for at komme tilbage</a> <% end if %>
'Du skal bare sætte session("neger") til at være ko, det er jo en form for sikkerhed.. :-) btw. hentyder du noget med neger (= / er lig med) ko :-D if session("neger") = "ko" then
'Replacen sikre at din SQL, så du kan skrive ?nyhedsid=laa' uden at få en SQL fejl
'Tjekker om nyheden findes. SQL = "SELECT * FROM Nyhed WHERE Id = '" & Replace(request.QueryString("nyhedsid"), "'", "''") & "'" Set Recordset = myConn.Execute(SQL) If Not (Recordset.EOF Or Recordset.BOF) Then
If Request.Querystring("Password") = Password Then
SQL = "Delete from Nyhed where Id = '" & Replace(request.QueryString("nyhedsid"), "'", "''") & "'"
myConn.Execute(SQL)
response.Redirect("Nyheder.asp")
Else
Response.Write("Skriv den rigtige kode ?Password=kodeord")
End If
Else
Response.Write("Nyheden blev ikke fundet.. :-)")
End If
else
response.Write("Dette har du ikke ret til") Response.Write("<a href=""Nyheder.asp"">Tryk her for at komme tilbage</a>")
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.