Hjæælp.. ADODB.Recordset error '800a0bb9'
Hej med jer.. Håber virkelig i kan hjælpe mig?!Jeg har lavet min egen webshop med programmet "Alding Webshop Maker" og når jeg ser det hele i preview (altså på min server på computeren) virker alt fint!!
Men når jeg har lagt det ind på mit webhotel og jeg går ind i companydb.asp, logger på og vil ændre inventory/gå ind i editstocks.asp skriver den følgende fejlmeddelelse:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/EditStocks.asp, line 137
Håber virkelig i kan hjælpe.. Forresten så står der følgende i linje 137:
Srs.Open sSQL, dbMain, adOpenStatic, adLockOptimistic
---
Håber i kan hjælpe mig..
Mvh
Michael Strange
--
Her er filen hvor fejlen opstår:
<!--#INCLUDE FILE="secure.asp"-->
<!--#INCLUDE FILE="adovbs.asp"-->
<!--#INCLUDE FILE="dbConnect.asp"-->
<!--#INCLUDE FILE="validateform.asp"-->
<HTML>
<HEAD>
<link rel="stylesheet" type="text/css" href="Stilmall.css">
<TITLE></TITLE>
<script LANGUAGE="JAVAscript">
<!--
function checkifnumber()
{
var prods=document.Form.txtNoticeNo.value;
var isno=parseInt(prods);
if(isNaN(isno)){
alert('You must use numerals!!!');
return false;
}
prods=document.Form.txtStockNo.value;
isno=parseInt(prods);
if(isNaN(isno)){
alert('You must use numerals!!!');
return false;
}
}
function checkstocks2(formvar)
{
var tmpstring=document.location.href;
var urlindex=tmpstring.indexOf('&'+formvar+'c1');
var urlstring=tmpstring.substring(0,urlindex);
if(urlindex==-1){
document.location.href=document.location.href+'&'+formvar+'c1='+document.forms[0]['val1' + formvar].value+'&'+formvar+'c2='+document.forms[0]['val2' + formvar].value;
}
else{
document.location.href=urlstring+'&'+formvar+'c1='+document.forms[0]['val1' + formvar].value+'&'+formvar+'c2='+document.forms[0]['val2' + formvar].value;
}
}
function stang()
{
window.close();
}
//-->
</script>
</HEAD>
<BODY bgcolor="steelblue">
<%Set rsProducts = Server.CreateObject("ADODB.Recordset")
set rsStock=Server.CreateObject("ADODB.Recordset")
rsproducts.Open "SELECT * FROM products WHERE itemProductNumber='" & trim(Request.QueryString("id")) & "'", dbMain, adOpenStatic, adLockPessimistic, adCmdText
Dim p, e, tmpchr, tmpstrangen
If rsproducts("Choice1") <> "" Then
ReDim tmpchoice(1)
p = 1
e = 0
tmpstrangen = rsproducts("Choice1")
If Mid(tmpstrangen, 1, 1) = Chr(59) Then
tmpstrangen = Mid(tmpstrangen, 2, (Len(tmpstrangen) - 1))
End If
If Mid(tmpstrangen, (Len(tmpstrangen)), 1) = Chr(59) Then
tmpstrangen = Mid(tmpstrangen, 1, (Len(tmpstrangen) - 1))
End If
tmpchar = Mid(tmpstrangen, p, 1)
Do While tmpchar <> ""
Do While (tmpchar <> Chr(59)) and (tmpchar<>"")
tmpchoice(e) = tmpchoice(e) & tmpchar
p = p + 1
tmpchar = Mid(tmpstrangen, p, 1)
Loop
p = p + 1
e = e + 1
ReDim Preserve tmpchoice(e)
'Combo1.AddItem Trim(tmpchoice), e
tmpchar = Mid(tmpstrangen, p, 1)
Loop
end if
Dim p2, e2, tmpchr2, tmpstrangen1
If rsproducts("Choice2") <> "" Then
ReDim tmpchoice2(1)
p2 = 1
e2 = 0
tmpstrangen1 = rsProducts("Choice2")
If Mid(tmpstrangen1, 1, 1) = Chr(59) Then
tmpstrangen1 = Mid(tmpstrangen1, 2, (Len(tmpstrangen1) - 1))
End If
If Mid(tmpstrangen1, (Len(tmpstrangen1)), 1) = Chr(59) Then
tmpstrangen1 = Mid(tmpstrangen1, 1, (Len(tmpstrangen1) - 1))
End If
tmpchar2 = Mid(tmpstrangen1, p2, 1)
Do While tmpchar2 <> ""
Do While (tmpchar2 <> Chr(59)) and (tmpchar2<>"")
tmpchoice2(e2) = tmpchoice2(e2) & tmpchar2
p2 = p2 + 1
tmpchar2 = Mid(tmpstrangen1, p2, 1)
Loop
p2 = p2 + 1
e2 = e2 + 1
ReDim Preserve tmpchoice2(e2)
'Combo1.AddItem Trim(tmpchoice), e
tmpchar2 = Mid(tmpstrangen1, p2, 1)
Loop
tmpstrangen2 = rsProducts("Choice2Text")
end if
%>
<%
Dim SAction, dbP, dsP, rsP
VaruNR=trim(Request.QueryString("id"))
SAction = Request.Form("StaffAction")
Dim Srs, sSQL, StartVal, respons
StartVal = "1"
Set Srs = Server.CreateObject("ADODB.Recordset") '(ItemID = " & Request.Form("txtItemID") & ")"
if Request.QueryString(VaruNR & "c1")<>"" then
if Request.QueryString(VaruNR & "c2")<>"" then
sSQL = "SELECT * FROM Stocks WHERE ItemProductNumber = '" & VaruNR & "' AND ItemString='" & chr(184) & chr(32) & Request.QueryString(VaruNR & "c1") & chr(184) & chr(32) & Request.QueryString(VaruNR & "c2") & "'" '" & VaruNR
else
sSQL = "SELECT * FROM Stocks WHERE ItemProductNumber = '" & VaruNR & "' AND ItemString='" & chr(184) & chr(32) & Request.QueryString(VaruNR & "c1") & "'" '" & VaruNR
end if
else
If (rsproducts("Choice1") <> "") and (rsproducts("Choice2") <> "") Then
sSQL = "SELECT * FROM Stocks WHERE ItemProductNumber = '" & VaruNR & "' AND ItemString='" & chr(184) & chr(32) & tmpchoice(e-1) & chr(184) & chr(32) & tmpchoice2(e2-1) & "'" '" & VaruNR
elseif (rsproducts("Choice1") <> "") and (rsproducts("Choice2") = "") Then
sSQL = "SELECT * FROM Stocks WHERE ItemProductNumber = '" & VaruNR & "' AND ItemString='" & chr(184) & chr(32) & tmpchoice(e-1) & "'" '" & VaruNR
elseif (rsproducts("Choice1") = "") and (rsproducts("Choice2") <> "") Then
sSQL = "SELECT * FROM Stocks WHERE ItemProductNumber = '" & VaruNR & "' AND ItemString='" & chr(184) & chr(32) & tmpchoice2(e2-1) & "'" '" & VaruNR
elseif (rsproducts("Choice1") = "") and (rsproducts("Choice2") = "") Then
sSQL = "SELECT * FROM Stocks WHERE ItemProductNumber = '" & VaruNR & "'"
end if '" & VaruNR
end if
Srs.Open sSQL, dbMain, adOpenStatic, adLockOptimistic
if SAction = "Save" then
If (Srs.BOF And Srs.EOF) Then
Srs.Close
Srs.Open "SELECT * FROM Stocks", dbMain, adOpenStatic, adLockOptimistic
Srs.AddNew
Srs.Fields.Item("ItemProductNumber").Value = VaruNr
end if
if (Request.Form("val1" & VaruNR)<>"") and (Request.Form("val2" & VaruNR)<>"") then
Srs.Fields.Item("ItemString").value=chr(184) & chr(32) & Request.Form("val1" & VaruNR) & chr(184) & chr(32) & Request.Form("val2" & VaruNR)
elseif (Request.Form("val1" & VaruNR)<>"") and (Request.Form("val2" & VaruNR)="") then
Srs.Fields.Item("ItemString").value=chr(184) & chr(32) & Request.Form("val1" & VaruNR)
elseif (Request.Form("val1" & VaruNR)="") and (Request.Form("val2" & VaruNR)<>"") then
Srs.Fields.Item("ItemString").value=chr(184) & chr(32) & Request.Form("val2" & VaruNR)
elseif (Request.Form("val1" & VaruNR)="") and (Request.Form("val2" & VaruNR)="") then
Srs.Fields.Item("ItemString").value=""
end if
'If trim(Request.Form("txtItemproductNumber")) <> "" Then
' Srs.Fields.Item("ItemProductNumber").Value = VaruNr
'end if
if Request.Form("txtStockNo")<>"" then
Srs.Fields.Item("StockNo").Value = Trim(Request.Form("txtStockNo"))
else
Srs.Fields.Item("StockNo").Value = empty
End If
If Trim(Request.Form("txtNoticeNo")) <> "" Then
'If IsNumeric(Request.Form("txtNoticeNo")) Then
Srs.Fields.Item("NoticeNo").Value = Trim(Request.Form("txtNoticeNo"))
'Else
' respons = alert("Antalet måste skrivas med siffror!");
' Exit Sub
'End If
Else
Srs.Fields.Item("NoticeNo").Value = 0'empty
End If
if Trim(Request.Form("txtFinishedText")) <> "" then
Srs.Fields.Item("FinishedText").Value = Trim(Request.Form("txtFinishedText"))
else
Srs.Fields.Item("FinishedText").Value = Empty
end if
if Request.Form("DelProd") = 0 then
Srs.Fields.Item("DeleteProd").Value = True
Srs.Fields.Item("FinishedAccess").Value = False
else
Srs.Fields.Item("DeleteProd").Value = False
Srs.Fields.Item("FinishedAccess").Value = True
End If
if Request.Form("chkIsLocked")="on" then
Srs("IsLocked")=true
else
Srs("IsLocked")=false
end if
Srs.Update
%>
<table Align="center" border="0" BGColor="">
<form Action="EditStocks.asp?id=<%=server.urlencode(VaruNR)%>" Method="post" style="BACKGROUND-COLOR: " id="Form" name="Form">
<TR>
<th bgcolor='white' Colspan="5">
<font face="verdana, ms sans serif, arial" color="steelblue" Size="1"><center style="BACKGROUND-COLOR: ">Inventory, Item # <%Response.write(VaruNR) %></center></font>
</th></TR>
<tr>
<td colspan="5">
<table Align="left" BORDER="0" BGColor="" Text="white">
<TBODY>
<%
If rsproducts("Choice1") <> "" Then
response.Write "</font><tr bgcolor=''><td nowrap colspan='5' align='left'><font face='Verdana, Arial' color='white' size='1'>" & rsproducts("Choice1Text") & "</font>"
response.Write "<br><SELECT NAME=" & Chr(34) & "val1" & rsproducts("itemproductnumber") & Chr(34) & "SIZE=" & Chr(34) & "1" & Chr(34) & " STYLE='FONT-SIZE: xx-small; FONT-FAMILY: Verdana, Arial' onchange=" & chr(34) & "java script:checkstocks2('" & rsproducts("itemproductnumber") & "');" & chr(34) & ">"
lagercheck=""
For i = 0 To CInt(e) - 1
if Request.form("val1" & rsproducts("itemproductnumber"))=tmpchoice(CInt) then
response.Write "<OPTION value='" & tmpchoice(CInt) & "' selected>" & tmpchoice(CInt)
lagercheck=tmpchoice(CInt)
else
response.Write "<OPTION value='" & tmpchoice(CInt) & "'"
if (i=CInt(e) - 1) and (lagercheck="") then
lagercheck=tmpchoice(CInt)
response.write " selected>" & tmpchoice(CInt)
else
response.write ">" & tmpchoice(CInt)
end if
end if
'Response.Write i
Next
response.Write "</SELECT></td></tr>"
rsStock.Open "select * from Stocks where ItemProductNumber='" & rsproducts("itemproductnumber") & "' AND ItemString=', " & lagercheck & "'", dbMain, adOpenStatic, adLockPessimistic, adCmdText
itsthere=false
if not(rsStock.eof and rsStock.bof) then
if rsStock("StockNo")<>"" then
if cint(rsStock("StockNo"))>0 then
itsthere=true
end if
end if
else
itsthere=true
end if
'rsStock.close
End If
If rsproducts("Choice2") <> "" Then
'Response.Write e2
'if instr(len(tmpstrangen2),tmpstrangen2,":")
response.Write "<tr bgcolor=''><td nowrap colspan='5' align='left'><font face='Verdana, Arial' color='white' size='1'>" & rsproducts("Choice2Text") & "</font>"
response.Write "<br><SELECT NAME=" & Chr(34) & "val2" & rsproducts("itemproductnumber") & Chr(34) & " SIZE=" & Chr(34) & "1" & Chr(34) & " STYLE='FONT-SIZE: xx-small; FONT-FAMILY: Verdana, Arial' onchange=" & chr(34) & "java script:checkstocks2('" & rsproducts("itemproductnumber") & "');" & chr(34) & ">"
lagercheck2=""
For i = 0 To CInt(e2) - 1
if request("val2" & rsproducts("itemproductnumber"))=tmpchoice2(CInt) then
response.Write "<OPTION value='" & tmpchoice2(CInt) & "' selected>" & tmpchoice2(CInt)
lagercheck2=tmpchoice2(CInt)
else
response.Write "<OPTION value='" & tmpchoice2(CInt) & "'"
if (i=CInt(e2) - 1) and (lagercheck2="") then
lagercheck2=tmpchoice2(CInt)
response.write " selected>" & tmpchoice2(CInt)
else
response.write ">" & tmpchoice2(CInt)
end if
end if
Next
response.Write "</SELECT></td></tr>"
rsStock.close
rsStock.Open "select * from Stocks where ItemProductNumber='" & rsproducts("itemproductnumber") & "' AND ItemString='" & chr(184) & chr(32) & lagercheck & chr(184) & chr(32) & lagercheck2 & "'", dbMain, adOpenStatic, adLockPessimistic, adCmdText
itsthere=false
if not(rsStock.eof and rsStock.bof) then
if rsStock("StockNo")<>"" then
if cint(rsStock("StockNo"))>0 then
itsthere=true
end if
end if
else
itsthere=true
end if
else
%><input type="hidden" name="val2<%=rsproducts("itemproductnumber")%>"><%
end if%>
<TR>
<td colspan='2'><hr></td></tr>
<tr><td>
<FONT color=white face="verdana, ms sans serif, arial" size=-2><B>Number of products in stock</B></FONT>
</td>
<td>
<FONT color=white face="verdana, ms sans serif, arial" size=-2><B>Alert at this amount</B></FONT>
</td></tr>
<tr>
<td>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' type="text" NAME="txtStockNo" MAXLENGTH="12" size="12" Value="<%= Request.Form("txtStockNo") %>">
</td>
<td>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' type="text" NAME="txtNoticeNo" MAXLENGTH="12" size="12" Value="<%= Request.Form("txtNoticeNo") %>">
</td>
</tr>
<tr>
<tr><td colspan="2"><hr></td></tr>
<tr>
<td colspan="2">
<font face="verdana, ms sans serif, arial" size="-2" color="white">When product is out of stock: </font>
</td>
</tr>
<tr>
<td colspan="2">
<%if Srs("DeleteProd") = true then%>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' TYPE="Radio" Value="0" name=DelProd checked><font face="verdana, ms sans serif, arial" size="-2" color="white">Remove product from database</font><br>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' TYPE="Radio" Value="1" name=DelProd><font face="verdana, ms sans serif, arial" size="-2" color="white">Write an out of stock message </font>
<%else%>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' TYPE="Radio" Value="0" name=DelProd><font face="verdana, ms sans serif, arial" size="-2" color="white">Remove product from database</font><br>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' TYPE="Radio" Value="1" name=DelProd checked><font face="verdana, ms sans serif, arial" size="-2" color="white">Write an out of stock message </font>
<%end if%>
</td>
</tr>
<tr>
<td colspan="2">
<font face="verdana, ms sans serif, arial" size="-2" color="white">Text that will appear when the product is out of stock: </font><br>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' type="text" NAME="txtFinishedText" MAXLENGTH="60" size="36" Value="<%= Request.Form("txtFinishedText") %>">
</td>
</tr>
<tr>
<td colspan="2"><font face="verdana, ms sans serif, arial" size="-2" color="white">Only the stock quantity can be bought: </font><input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' TYPE="checkbox" NAME="chkIsLocked" <%if Srs("IsLocked")=true then Response.Write "checked" end if%>></td>
</tr>
<tr>
<td>
<input style='font-family: Verdana, Sans Serif, Arial; font-size: xx-small' TYPE="Submit" Name="StaffAction" Value="Save" Class="Btn" onclick="java script:checkifnumber()">
<
