Hjælp !
Hvorfor kan jeg ikke få dette til af virke ?------------------------------------------------------
Fejlmeddellensen lyder:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e10\'
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/ASP/elart/admin/sites/indtast_forside.asp, linje 28
------------------------------------------------------
<%@ LANGUAGE=\"VBScript\" %>
<!--#INCLUDE FILE=\"dbadgang.asp\" --><html>
<title></title>
<link rel=\"stylesheet\" href=\"../../css/tekst.css\" type=\"text/css\">
<link rel=\"stylesheet\" href=\"../../css/form.css\" type=\"text/css\">
<head>
</head>
<body>
<% If Request.Form(\"Action\") = \"Opdater\" Then
\'Validering af formfelter - sikre at brugeren kan indtaste et ( \' )
session(\"Overskrift\") = Replace(Request.Form(\"Overskrift\"), \"\'\", \"\'\'\")
session(\"Afsnit1\") = Replace(Request.Form(\"Afsnit1\"), \"\'\", \"\'\'\")
session(\"Afsnit2\") = Replace(Request.Form(\"Afsnit2\"), \"\'\", \"\'\'\")
session(\"Afsnit3\") = Replace(Request.Form(\"Afsnit3\"), \"\'\", \"\'\'\")
\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon
\'Updater indtastet data
strSQL = \"UPDATE SIDEINDHOLD SET Overskrift=\'\"& session(\"Overskrift\") &\"\', Afsnit1=\'\"& session(\"Afsnit1\") &\"\', Afsnit2=\'\"& session(\"Afsnit2\") &\"\', Afsnit3=\'\"& session(\"Afsnit3\") &\"\' WHERE Sidenavn=\" & session(\"Sidenavn\") & \" \"
set rs = my_Conn.Execute(strSQL)
\'Luk databasen
my_conn.Close
Set my_Conn = Nothing
%>
Siden er opdateret<br>
<a href=\"xxx.asp\">Tilbage til oversigten</a>
<% Else %>
<%
\'Aabner databasen
set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open DBCon
\' Udskriv alt fra tabellen Forside
strSQL = \"Select * From SIDEINDHOLD \"
set rs = my_Conn.Execute(strSQL)
session(\"Sidenavn\") = rs(\"Sidenavn\")
session(\"Overskrift\") = rs(\"Overskrift\")
session(\"Afsnit1\") = rs(\"Afsnit1\")
session(\"Afsnit2\") = rs(\"Afsnit2\")
session(\"Afsnit3\") = rs(\"Afsnit3\")
\'Lukker databasen
my_conn.Close
Set my_Conn = Nothing
%>
<table width=\"50%\" border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td> <font size=\"2\"><b>Ret side indholdet: </b></font>
<form onSubmit=\"return tjekform(this)\" method=\"post\" action=\"indtast_forside.asp\" name=\"form\">
<table width=\"100%\" border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td><b>Sidenavn: </b><%= session(\"Sidenavn\") %></td>
</tr>
<tr>
<td>
<hr width=\"100%\" size=\"1\" align=\"center\">
</td>
</tr>
<tr>
<td align=\"center\" valign=\"middle\">
</td>
</tr>
<tr>
<td height=\"10\"></td>
</tr>
<tr>
<td><b>Overskrift:</b></td>
</tr>
<tr>
<td>
<hr width=\"100%\" align=\"center\" size=\"1\">
</td>
</tr>
<tr>
<td align=\"center\" valign=\"middle\">
<input name=\"Overskrift\" size=55 maxlength=75 value=\"<%= session(\"Overskrift\") %>\" class=\"text_felt\">
</td>
</tr>
<tr>
<td height=\"10\"></td>
</tr>
<tr>
<td><b>Afsnit 1:</b></td>
</tr>
<tr>
<td>
<hr size=\"1\" width=\"100%\" align=\"center\">
</td>
</tr>
<tr>
<td align=\"center\" valign=\"middle\">
<textarea name=\"Afsnit1\" cols=\"55\" rows=\"10\" class=\"text_felt\"><%= session(\"Afsnit1\") %></textarea>
</td>
</tr>
<tr>
<td height=\"10\"></td>
</tr>
<tr>
<td><b>Afsnit 2:</b></td>
</tr>
<tr>
<td>
<hr size=\"1\" width=\"100%\" align=\"center\">
</td>
</tr>
<tr>
<td align=\"center\" valign=\"middle\">
<textarea name=\"Afsnit2\" cols=\"55\" rows=\"10\" class=\"text_felt\"><%= session(\"Afsnit2\") %></textarea>
</td>
</tr>
<tr>
<td height=\"10\"></td>
</tr>
<tr>
<td><b>Afsnit 3:</b></td>
</tr>
<tr>
<td>
<hr size=\"1\" width=\"100%\" align=\"center\">
</td>
</tr>
<tr>
<td align=\"center\" valign=\"middle\">
<textarea name=\"Afsnit3\" cols=\"55\" rows=\"10\" class=\"text_felt\"><%= session(\"Afsnit3\") %></textarea>
</td>
</tr>
<tr>
<td align=\"center\" valign=\"middle\"> <br>
<input type=\"submit\" value=\"Opdater\" name=\"Action\" class=\"knap\">
</td>
</tr>
<tr>
<td align=\"center\" valign=\"middle\">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<br>
<br>
<% End If %>
</body>
</html>
