Hej
Jeg har selv fået fjernet login, men jeg har lidt problemer. Kan du hjælpe ? Når jeg vil oprette en ny og trykker på Opret knappen får jeg fejlen "siden kan ikke vises" Hvis jeg så går tilbage og klikker på Send forespørgsel, så virker det, men ikke hvis jeg klikker først på Send forespørgsel og hvis jeg vælger Ret eller slet får jeg denne fejl.
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.
/log/QWE/admin.asp, line 126
Her er min kode:
<html>
<head>
<title>Adminpage</title>
</head>
<%
conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
conn = conn & "DBQ=" & server.mappath("log.mdb")
if request.form("edit") <> "" then
Function fncTextChange(strText)
strTekst = Trim(strText)
fncTextChange = Replace(strTekst,"""","''")
fncTextChange = Replace(strTekst,"'","''")
fncTextChange = Replace(fncTextChange," "," ")
fncTextChange = Replace(fncTextChange,">",">")
fncTextChange = Replace(fncTextChange,"<","<")
fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
fncTextChange = Replace(fncTextChange,"å","å")
fncTextChange = Replace(fncTextChange,"æ","æ")
fncTextChange = Replace(fncTextChange,"ø","ø")
fncTextChange = Replace(fncTextChange,"Å","Å")
fncTextChange = Replace(fncTextChange,"Æ","Æ")
fncTextChange = Replace(fncTextChange,"Ø","Ø")
End Function
indhold = fncTextChange(request.form("nyhed"))
sql = "update nyheder set overskrift='"&request.form("Fovr")&"', nyheden='"&indhold&"' where id = " & request.querystring("id")
set rs = server.createobject("Adodb.connection")
rs.open conn
set rs = rs.execute(sql)
elseif request.form("vises") <> "" then
set rs = server.createobject("adodb.connection")
rs.open conn
sql = "update nyheder set vis=False"
rs.execute(sql)
for each item in request.form
if not item = "vises" then
test = split(item,"chk")
id = test(1)
sql = "Update nyheder set vis=True where id = " & id
rs.execute(sql)
end if
next
response.write "<META HTTP-EQUIV=""refresh"" CONTENT=""0.000;admin.asp"">"
elseif request.form("send") <> "" then
set rs = Server.CreateObject("ADODB.Recordset")
set MyConn = Server.CreateObject("ADODB.Connection")
rs.Open SQL,conn
myConn.Open conn
'Undersøg om det er det rigtigt Password og send til loginsiden hvis det er forkert ellers sender den til Lektiesiden.
rs.close
set rs = nothing
myConn.close
set myConn = nothing
elseif request.form("send2") <> "" then
if not request.form("Fovr") <> "" then
OvrAlert = "<font color='red'>*</font>"
newsalert = "1"
end if
if not request.form("nyhed") <> "" then
nyhedAlert = "<font color='red'>*</font>"
newsalert = "1"
end if
if not newsalert <> "" then
Function fncTextChange(strText)
strTekst = Trim(strText)
fncTextChange = Replace(strTekst,"""","''")
fncTextChange = Replace(strTekst,"'","''")
fncTextChange = Replace(fncTextChange," "," ")
fncTextChange = Replace(fncTextChange,">",">")
fncTextChange = Replace(fncTextChange,"<","<")
fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
fncTextChange = Replace(fncTextChange,"å","å")
fncTextChange = Replace(fncTextChange,"æ","æ")
fncTextChange = Replace(fncTextChange,"ø","ø")
fncTextChange = Replace(fncTextChange,"Å","Å")
fncTextChange = Replace(fncTextChange,"Æ","Æ")
fncTextChange = Replace(fncTextChange,"Ø","Ø")
End Function
indhold = fncTextChange(request.form("nyhed"))
set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.open conn
sql = "Insert into nyheder(Overskrift, nyheden, af, dato) VALUES('"&request.form("Fovr")&"','"&indhold&"','"&"','"&date()&"')"
set rs = MyConn.execute(sql)
rs.close
set rs = nothing
newsAlert = "<h1>Nyheden er oprettet</h1>"
newsAlert = "Alle felter med * skal udfyldes"
end if
end if
%>
<body BGCOLOR="#000000" LINK="#FFFFFF" TEXT="#FFFFFF">
<b><%=Alert%>
</b>
<form action="admin.asp" METHOD="post">
<p> </p>
</form>
<%
if request.querystring("mode") = "edit" then
set rs = server.createobject("Adodb.connection")
rs.open conn
sql = "select * from nyheder where id = " & request.querystring("id")
set rs = rs.execute(sql)
response.write "<body BGCOLOR=""#000000"" LINK=""#FFFFFF"" TEXT=""#FFFFFF"">"
response.write "<center><h1>Ret nyhed</h1></center>"
response.write "<b>" & newsAlert & "</b>"
response.write "<form METHOD=""post"" ACTION=""admin.asp?id=" & rs.fields("id") & """>"
response.write ovrAlert & " Overskrift:<br>"
response.write "<INPUT TYPE=""text"" NAME=""Fovr"" value=""" & rs.fields("overskrift") & """>"
response.write "<br><br>"
response.write NyhedAlert & "Nyheden:<br>"
response.write "<TEXTAREA COLS=""20"" rows=""6"" NAME=""nyhed"">" & replace(rs.fields("nyheden"),"<BR>",Vbcrlf) & "</textarea>"
response.write "<br><br>"
response.write "<INPUT type=""submit"" NAME=""edit"" VALUE=""Opret"">"
response.write "</form>"
elseif request.querystring("mode") = "delete" then
conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
conn = conn & "DBQ=" & server.mappath("log.mdb")
set rs = server.createobject("adodb.connection")
sql = "delete from nyheder where id = " & request.querystring("id")
rs.open conn
set rs = rs.execute(sql)
response.write "<META HTTP-EQUIV=""refresh"" CONTENT=""0.000;admin.asp"">"
else
%>
<h1 align="center">Opret nyhed</h1>
<p align="center">Hej <b><%=newsAlert%></b> </p>
<form METHOD="post" ACTION="admin.asp">
<%=ovrAlert%>
<p>Overskrift:<br>
<input TYPE="text" NAME="Fovr" size="20"> <br>
<br>
<%=NyhedAlert%> Nyheden:<br>
<textarea COLS="20" rows="6" NAME="nyhed"></textarea> <br>
<br>
<input type="submit" NAME="send2" VALUE="Opret"> </p>
</form>
<%
set rs = server.createobject("Adodb.connection")
rs.open conn
sql = "select * from nyheder order by id desc"
set rs = rs.execute(sql)
response.write "<table><form method=""post"" action=""admin.asp"">"
response.write "<tr><td>Overskrift</td><td>Dato:</td><td>ret</td><td>Slet</td><td>Synlig</td></tr>"
while not rs.eof
response.write "<tr><td>"
response.write rs("overskrift")
response.write "</td><td>"
response.write rs.fields("dato")
response.write "</td><td>"
response.write "<a href=""admin.asp?mode=edit&id=" & rs.fields("id") & """>Ret</a>"
response.write "</td><td>"
response.write "<a href=""admin.asp?mode=delete&id=" & rs.fields("id") & """>Slet</a>"
response.write "</td><td>"
if rs.fields("vis") = True then
vis = "checked"
else
vis = ""
end if
response.write "<input type=""checkbox"" name=""chk" & rs.fields("id") & """ " & vis & ">"
response.write "</td></tr>"
rs.movenext
wend
response.write "<tr><td colspan=""5"" align=""right"">"
response.write "<input type=""submit"" name=""vises""></form>"
rs.close
set rs = nothing
end if
%>
</body>
</html>
Håber du kan hjælpe.
Slettet bruger
Slettet bruger
Opret
Preview
