Frågeställare : Johan
Datum : 2002-05-17 14:19:12
Ämne : felemelande
Fråga :
får detta felmedenade vettefan hur ajg ska fixa det....
hela koden kommer längst ner.
Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/jk/webshopjk/webshop.asp, line 149
<%
varugrupp = Request.Querystring("varugrupp")
Dim Connect
Connect = "driver={Microsoft Access Driver (*.mdb)};dbq="
Connect = Connect & Server.Mappath("db\varor.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM varor WHERE grupp = '" & varugrupp & "'"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<% do until Recset.EOF%>
<form method="POST" action="kundvagn_add.asp">
<b><font color="white" size="2">Souvenirer: <% =Request.Form("grupp") %>
</font></b>
</td>
</tr>
<tr>
<td bgcolor="#3074B8" align="middle" width="420" valign="top">
<p align="left">
<b><font color="white"><small><% =Request.Form("produkt") %></small></font></b>
</p>
</td>
</tr>
<tr>
<td>
</tr>
<tr>
<td>
<table><tr><td width="120" valign="top">
<br><A target=_blank href="images/shop/shop_t025.jpg"><IMG alt="" src="images/shop/shop_t025_small.jpg" width=120 align=left border=0></A>
</td>
<td width="300"><small><br>
<br><b>PRIS: <% =Request.Form("pris") %></b>
<br><b>MEDLEMSPRIS: <% =Request.Form("mpris") %></b>
<br><b>BESKRIVNING: <% =Request.Form("information") %></b>
<br><b>TEXT:<% =Request.Form("text") %></b></small>
</td></tr></table>
</td>
</tr>
<tr>
<td align="right"><small>
<br><b>ANTAL:</b>
<input size="1" name="T025_140CL" style="FONT-SIZE: 10px; BORDER-LEFT-COLOR: #112c57; BORDER-BOTTOM-COLOR: #112c57; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #112c57; FONT-FAMILY: Verdana, arial, helvetica, tahoma; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BACKGROUND-COLOR: #ccddff; BORDER-RIGHT-COLOR: #112c57; BORDER-BOTTOM-STYLE: solid" >
<b>STORLEK:</b></small><select size="1" name="STORLEK" style="FONT-SIZE: 10px; BORDER-LEFT-COLOR: #112c57; BORDER-BOTTOM-COLOR: #112c57; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #112c57; FONT-FAMILY: Verdana, arial, helvetica, tahoma; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BACKGROUND-COLOR: #ccddff; BORDER-RIGHT-COLOR: #112c57; BORDER-BOTTOM-STYLE: solid">
<option>Välj storlek</option>
<option value="140CL">140CL</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select><small><b> <br>
</b></small><input type="submit" value="Lägg till i kundvagnen" name="laggtill" style="FONT-SIZE: 10px; BORDER-LEFT-COLOR: #112c57; BORDER-BOTTOM-COLOR: #112c57; BORDER-TOP-STYLE: solid; BORDER-TOP-COLOR: #112c57; FONT-FAMILY: Verdana, arial, helvetica, tahoma; BORDER-RIGHT-STYLE: solid; BORDER-LEFT-STYLE: solid; BACKGROUND-COLOR: #ccddff; BORDER-RIGHT-COLOR: #112c57; BORDER-BOTTOM-STYLE: solid">
</form>
<% Recset.MoveNext %>
<% loop %>
<%RecSet.Close%>
<%Connect.Close %>
Besvarare : Jimmy Staff
Datum : 2002-05-17 17:32:29
Svar :
Hej Johan, tack för din fråga.
Tack tack.. det var fel på rad 149... hmm.. bara 64 rader kod som du skickade :)
Kan det vara så att du har glömt att includera adovbs.inc?
Byt ut :
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Mot :
RecSet.Open Addera, Connect, 3, 3
Och se om det funkar.. kolla även att tabellen heter "varor".
Lycka till!
© 2010 Staff consulting.
|
