For få parametre??
Jeg er i gang med at lave et dating script og er nået til slet/rette-delen. I jeg får dog denne fejl når jeg forsøger at rette i en allerede oprettet profil:Der er for få parametre, der var ventet 1.
asp/dating/editad.asp, linje 14
Her en en kopi af editad.asp
------
<% Option Explicit %>
<!-- #include virtual=\"common/adovbs.inc\" -->
<html>
<body bgcolor=white vlink=red >
<!-- #include file=\"header.inc\" --><p>
<%
If Request(\"Profilnavn\")=\"\" Or request(\"Kodeord\") Or Request(\"Alder\")=\"\" Or Request(\"By\")=\"\" Or Request(\"Land\")=\"\" Or Request(\"Email\")=\"\" Or Request(\"Icq\")=\"\" Or Request(\"Hoejde\")=\"\" Or Request(\"Vaegt\")=\"\" Or Request(\"Haarfarve\")=\"\" Or Request(\"Stjernetegn\")=\"\" Or Request(\"Tekst\")=\"\" Or Request(\"Kategori\")=\"\" Then
Dim Conn,Profiler
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"dating.mdb\") & \";UID=admin;PWD=;\"
Set Profiler = Conn.Execute(\"SELECT * FROM profiler WHERE Profilnavn=\" & Request(\"Profilnavn\"))
%>
<% ShowHeader \"Ret din profil\" %>
Her kan du aendre de ting du har lyst til i din profil.<p>
<form method=\"post\" action=\"editad.asp?Profilnavn=<%=Request(\"Profilnavn\")%>
<table border=\"0\" width=\"50%\">
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Profilnavn</font></td>
<td width=\"79%\"><input type=\"text\" name=\"Profilnavn\" size=\"20\" value=\"<%=Profiler(\"Profilnavn\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Kodeord</font></td>
<td width=\"79%\"><input type=\"password\" name=\"Kodeord\" size=\"20\" value=\"<%=Profiler(\"Kodeord\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Alder</font></td>
<td width=\"79%\"><input type=\"text\" name=\"Alder\" size=\"20\" value=\"<%=Profiler(\"Alder\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">By</font></td>
<td width=\"79%\"><input type=\"text\" name=\"By\" size=\"20\" value=\"<%=Profiler(\"By\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Land</font></td>
<td width=\"79%\"><input type=\"text\" name=\"Land\" size=\"20\" value=\"<%=Profiler(\"Land\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Email</font></td>
<td width=\"79%\"><input type=\"text\" name=\"Email\" size=\"20\" value=\"<%=Profiler(\"Email\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Icq</font></td>
<td width=\"79%\"><input type=\"text\" name=\"Icq\" size=\"20\" value=\"<%=Profiler(\"Icq\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Hoejde</font></td>
<td width=\"79%\"><input type=\"text\" name=\"Hoejde\" size=\"20\" value=\"<%=Profiler(\"Hoejde\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Vaegt</font></td>
<td width=\"79%\"><input type=\"text\" name=\"Vaegt\" size=\"20\" value=\"<%=Profiler(\"Vaegt\")%>\"></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Haarfarve</font></td>
<td width=\"79%\"><select size=\"1\" name=\"Haarfarve\">
<option value=\"LYSBLOND\">LYSBLOND</option>
<option value=\"MØRKBLOND\">MØRKBLOND</option>
<option value=\"RØDT\">RØDT</option>
<option value=\"SORT\">SORT</option>
<option value=\"BRUNT\">BRUNT</option>
</select></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Stjernetegn</font></td>
<td width=\"79%\"><select size=\"1\" name=\"Stjernetegn\">
<option value=\"Stenbuk\">Stenbuk</option>
</select></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Tekst</font></td>
<td width=\"79%\"><textarea rows=\"2\" name=\"Tekst\" cols=\"20\"><%=Profiler(\"Tekst\")%></textarea></td>
</tr>
<tr>
<td width=\"21%\"><font face=\"Arial\" size=\"2\">Kategori</font></td>
<td width=\"79%\"><select size=\"1\" name=\"Kategori\">
<option value=\"TEST\">TEST</option>
<option value=\"TEST1\">TEST1</option>
</select></td>
</tr>
</table>
<p><input type=\"submit\" value=\"Send\" name=\"B1\"></form></p>
<% Else %>
<% Dim Query, Place
ShowHeader \"Ret i din profil\"
On Error Resume Next
%><font face=verdana size=5><b>KATEGORI: <%=Request(\"Kategori\")%></b></font>
<%
ShowProfil Request(\"Profilnavn\"),Request(\"Kodeord\"),Request(\"Alder\"),Request(\"By\"),Request(\"Land\"),_
Request(\"Email\"),Request(\"Icq\"),Request(\"Hoejde\"),Request(\"Vaegt\"),Request(\"Haarfarve\"),_
Request(\"Stjernetegn\"),Request(\"Tekst\"),Request(\"Kategori\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"dating.mdb\") & \";UID=admin;PWD=;\"
Set Profiler = Server.CreateObject(\"ADODB.Connection\")
Query = \"SELECT * FROM profiler WHERE Profilnavn=\" & Request(\"Profilnavn\")
Profiler.Open Query, Conn, adOpenDynamic, adLockOptimistic
Profiler(\"Profilnavn\") = Request(\"Profilnavn\")
Profiler(\"Kodeord\") = Request(\"Kodeord\")
Profiler(\"Alder\") = Request(\"Alder\")
Profiler(\"By\") = Request(\"By\")
Profiler(\"Land\") = Request(\"Land\")
Profiler(\"Email\") = Request(\"Email\")
Profiler(\"Icq\") = Request(\"Icq\")
Profiler(\"Hoejde\") = Request(\"Hoejde\")
Profiler(\"Vaegt\") = Request(\"Vaegt\")
Profiler(\"Haarfarve\") = Request(\"Haarfarve\")
Profiler(\"Stjernetegn\") = Request(\"Stjernetegn\")
Profiler(\"Tekst\") = Request(\"Tekst\")
Profiler(\"Kategori\") = Request(\"Kategori\")
Profiler.Update
If Err.Number = 0 Then %>
Din profil er blevet ændret!
<% Else %>
Der var en fejl: # <%=Err.Number%> : <%=Err.Description%><p>
<% End If %>
<% End If %>
</body>
</html>
------
Så vidt jeg kan se er linje 14:
Set Profiler = Conn.Execute(\"SELECT * FROM profiler WHERE Profilnavn=\" & Request(\"Profilnavn\"))
På forhånd tak for hjælpen :-)
