C Ceeron Medlem sedan aug. 2000 378 inlägg Frågan 23 okt. 2002 20:06 #1 Hallå...
Sitter o knappar på en sida... Gör ett formulär med en intresseanmälan och nu vägrar den funka... Har gjort hur många vanliga formulär som helst, kan bero på att jag e trött som jag inte ser det felet som e någonstans...
form:
\<form action="default.asp?sida=skicka" method="post" name="Intresseanmalan"\>
Namn: \<input type="text" name="Namn" size="20" maxlength="50"\>\<br\>
E-post: \<input type="text" name="Epost" size="30"\>\<br\>
Synpunkter (valfri):\<br\>
\<textarea cols="50" rows="10" name="Synpunkter"\>\</textarea\>
\<br\>\<br\>
\<center\>
\<input type="submit" name="Skicka" value=" Skicka "\> \<input type="reset" name="Reset" value=" Nollställ "\>
\</center\>
\</form\>
aspkod:
<!-- db skickning -->
<!-- #include file="adovbs.inc" -->
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("xxx.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
skicka = "SELECT \* FROM Intresse"
RecSet.Open skicka, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Namn") = Request.Form("Namn")
ReCSet("Epost") = Request.Form("Epost")
RecSet("Synpunkter") = Request.Form("Synpunkter")
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
%\>
Får följande felmedelande:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/skarmrent/default.asp, line 167
Line 167 är den där jag öppnar RecSet men den brukar ju inte alltid va exakt på raderna...
@nders Medlem sedan juni 2000 32 967 inlägg Det ser ut som att du försöker inkludera adovbs.inc inne i asp-koden. Då inkluderas inte filen. du måste göra det utanför asp-blocket.
%>
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("xxx.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
skicka = "SELECT * FROM Intresse"
RecSet.Open skicka, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Namn") = Request.QueryString("Namn")
ReCSet("Epost") = Request.QueryString("Epost")
RecSet("Synpunkter") = Request.QueryString("Synpunkter")
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
%>
Mvh,
C Ceeron Medlem sedan aug. 2000 378 inlägg Hehe sa ju att det var ett litet fel som jag inte såg ;) E för trött. Stort tack till den snabba hjälpen