Jeg har lige prøvet om jeg kunne få rettefunktionen til at virke efter at jeg har rettet til conn., men også her får jeg fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/admin/administrator/ret.asp, line 109
linie 9 = Conn.Execute(strSQL)
Hele siden ser sådan ud:
<!--------#include file="../pro-lag.inc"----->
<%
'Option Explicit
Dim Conn, DSN, retid, strSQL, rs, strGammelNyhed, frmRetid, strNyhed, strNavn, VisNyheder
Response.Buffer=Valid
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../log/safarinews.mdb")
Conn.Open connString
%>
<html>
<head>
<title>Ret Menu</title>
</head>
<body background="../images/t.gif" topmargin="15">
<br><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber3">
<tr>
<td width="150" style="border-bottom: 1px solid #000000" > </td>
<td width="500" style="border-bottom: 1px solid #000000" ><font face="verdana" size="2">Administration i det valgte område
= <font color="#FF0000">Nyheder</font></font></td>
</tr></table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber2">
<tr>
<td width="150" valign="top"><!---#include file="menu_includ.asp"---></td>
<td width="500">
<%
If Request.Querystring("retid") <> "" Then
retid = Request.Querystring("retid")
strSQL ="Select * From News Where ID =" & retid
Set rs = Conn.Execute("SELECT * FROM " & Request.QueryString("tabel"))
do while not rs.eof
%>
<FORM method="get" name="rettet" action="rettet.asp">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1">
<tr>
<td width="100%" align="left"> </td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="106" bordercolor="#111111" >
<tr>
<td width="100" height="25" ><font face="verdana" size="2"><b> Ændret den:</b></font></td>
<td width="400" height="25" colspan="2" ><INPUT name="Dato" size="40" value="<%=rs("Date")%>"></td>
</tr>
<tr>
<td width="100" height="25" ><font face="verdana" size="2"><b> Overskrift:</b></font></td>
<td width="400" height="25" colspan="2" ><INPUT name="Navn" size="40" value="<%=rs("Subject")%>"></td>
</tr>
<tr>
<td width="100" height="25" valign="top" ><font face="verdana" size="2"><b> Tekst:</b></font></td>
<td width="400" height="25" colspan="2" ><textarea rows="4" cols="30" name="Tekst"><%=rs("Text")%></textarea></td>
</tr>
<tr>
<td width="100" height="25" ><font face="verdana" size="2"><b> </b></font></td>
<td width="156" height="25" >
<align="center">
<INPUT type="submit" value="UPDATE" style="font-family: Verdana; font-size: 8pt"></td>
<td width="244" height="25" >
</td>
</tr>
<tr>
<td width="100">
<align="center">
<input type="hidden" NAME="frmRetid" value="<%Response.Write Request.Querystring("retid")%>">
</td>
</tr>
</table>
</center>
</div>
<INPUT type="hidden" value="UPDATE"></td>
</FORM><%
rs.MoveNext
loop
Elseif Request.Querystring("retid") = "" Then
frmRetid = Request.Form("frmRetid")
strDate = Replace(Request.Form("Date"), vbcrlf, "<br>")
strSubject = Replace(strSubject, "'", "''")
strText = Replace(Request.Form("Text"), "'", "''")
strSQL = "Update News Set Date='" & strDate & "', Subject= '" & strSubject & "', Text= '" & strText & "' Where ID=" & frmRetid
Conn.Execute(strSQL)
Response.Redirect ("rettet.asp")
End if
%>
<center>
<p>
<b><a href="ret_main.asp" target="_self"></a></b>
</p>
</center>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
