Ska uppdatera lite info i en databas, men det vill inte fungera:(
Får felmeddelandet;
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel i UPDATE-uttryck.
minsida_admin.asp, line 135
Koden;
<html>
<head>
<title>Administrera Min sida</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function kollaform() {
var title = document.form.title.value;
if(title.length == 0) {
alert("Din sida måste ha en titel!"); return false;
}
var bgcolor = document.form.bgcolor.value;
if(bgcolor.length == 0) {
alert("Du måste välja en bakgrundsfärg!\n\nKlicka på länken Färgkoder för att se koderna till olika färger."); return false;
}
var text = document.form.text.value;
if(text.length == 0) {
alert("Du måste välja en textfärg!\n\nKlicka på länken Färgkoder för att se koderna till olika färger."); return false;
}
var link = document.form.link.value;
if(link.length == 0) {
alert("Du måste välja en länkfärg!\n\nKlicka på länken Färgkoder för att se koderna till olika färger."); return false;
}
var alink = document.form.alink.value;
if(alink.length == 0) {
alert("Du måste välja en färg till dom aktiva länkarna!\n\nKlicka på länken Färgkoder för att se koderna till olika färger."); return false;
}
var vlink = document.form.vlink.value;
if(vlink.length == 0) {
alert("Du måste välja en färg på dom besökta länkarna!\n\nKlicka på länken Färgkoder för att se koderna till olika färger."); return false;
}
var sida = document.form.sida.value;
if(sida.length == 0) {
alert("Du måste väl ha lite innehåll på sidan?"); return false;
}
}
</script>
</head>
<body>
<% If Request.QueryString("page") = "" Then
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("sida.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM sidor WHERE user = '" & Session("user") & "'"
rs.Open SQL, Connection
%>
<form name="form" method="post" action="minsida_admin.asp?page=spara" onSubmit="return kollaform()">
<table align="center" cellpadding="2">
<tr>
<td>
<font class="blacktext">
Titel:
</font>
</td>
<td>
<input type="text" name="title" value="<%=rs("title")%>" maxlength="35">
</td>
</tr>
<tr>
<td>
<font class="blacktext">
Bakgrundsfärg (<a href="#" onClick="popup('minsida_admin.asp?page=fargkoder')" class="blacklink">Färgkoder</a> )
</font>
</td>
<td>
<input type="text" name="bgcolor" value="<%=rs("bgcolor")%>" maxlength="7">
<td>
</tr>
<tr>
<td>
<font class="blacktext">
Textfärg:
</font>
</td>
<td>
<input type="text" name="text" value="<%=rs("text")%>" maxlength="7">
</td>
</tr>
<tr>
<td>
<font class="blacktext">
Länkfärg:
</font>
</td>
<td>
<input type="text" name="link" value="<%=rs("link")%>" maxlength="7">
</td>
</tr>
<tr>
<td>
<font class="blacktext">
Aktiva länkars färg:
</font>
</td>
<td>
<input type="text" name="alink" value="<%=rs("alink")%>" maxlength="7">
</td>
</tr>
<tr>
<td>
<font class="blacktext">
Besökta länkars färg:
</font>
</td>
<td>
<input type="text" name="vlink" value="<%=rs("vlink")%>" maxlength="7">
</td>
</tr>
</table>
<table align="center" cellpadding="2">
<tr>
<td>
<font class="blacktext">
<center>Sida:</center>
</font>
<br><br>
<textarea name="sida" rows="14" cols="37" maxlength="10000"><%=rs("sida")%></textarea>
</td>
</tr>
</table>
<br>
<center>
<input type="submit" value=" Spara ">
<input type="reset" value=" Återställ ">
</center>
</form>
<% ElseIf Request.QueryString("page") = "spara" Then
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("sida.mdb")
SQL = "UPDATE * FROM sidor WHERE user = '" & Session("user") & "' SET title = '" & Trim(Request.Form("title")) & "', bgcolor = '" & Trim(Request.Form("bgcolor")) & "', text = '" & Trim(Request.Form("text")) & "', link = '" & Trim(Request.Form("link")) & "', alink = '" & Trim(Request.Form("alink")) & "', vlink = '" & Trim(Request.Form("vlink")) & "'"
Connection.Execute(SQL) /// Rad 135
Response.Write"<center><strong>Din sida är uppdaterad " & Session("user") & "!<br><br>"
Response.Write"<a href=minsida.asp?user=" & Session("user") & " target=_blank>Till sidan</a> "
Response.Write"<a href=minsida_admin.asp>Administrera sidan</a>"
Connection.Close
Set Connection = Nothing
%>
<% Else
Response.Redirect"minsida_admin.asp"
End If %>
</body>
</html>
Det har säkert inget med rad 135 att göra utan 134 där UPDATE uttrycket står.
Tacksam för svar!
/Mika3l
------------------
Laddar... ;-)
[Redigerat av Mika3l den 06 dec 2001]