webForumDet fria alternativet

Snabb n00b-hjälp sökes

ASP

2 svar · 169 visningar · startad av Ceeron

Medlem sedan aug. 2000378 inlägg
Frågan#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: &nbsp;\<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 "\> &nbsp; \<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...

Medlem sedan juni 200032 967 inlägg
#2

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,

Medlem sedan aug. 2000378 inlägg
#3

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

253 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)