N
.Net Sports
I have a form that users use a pulldown select listbox to choose a
category, but sometimes out of the blue, an "Either BOF or EOF is
true, or the current record has been deleted.." error will pop up on
the line "strcat_id = getcat("CAT_ID") " line in the asp script that
the form posts to. In the HTML source code for the page containing the
input form, all the category names are correctly formatted ( I used a
trim() function to make sure there were no spaces in the option value
for the select object)
''''block of code that gets the CAT_ID
<%
Dim conn, connect, strSQL, strsQL2, getcat, getsub, strcat_id,
strsub_id
set conn=server.CreateObject("adodb.connection")
connect = "Provider=SQLOLEDB;Data Source=whsql-
v20.prod.mesa1.secureserver.net;Initial Catalog=DB_146345;User
Id=eatatfreds2;Password=Discount2;"
conn.Open connect
Set getcat=Server.CreateObject("adodb.recordset")
strSQL = "SELECT CAT_ID FROM card_details where category = '" &
strcategory & "' and issubcat = 'false'"
getcat.Open strSQL, conn
strcat_id = getcat("CAT_ID")
Set getcat = Nothing
...%>
'''''''''''asp block that is creating dynamic data for listbox menu on
the form input page
<!-- dynamic category pulldowns -->
<SELECT name=category>
<%
Dim rsC, conn, connect, strSQL
set conn=server.CreateObject ("adodb.connection")
connect = "Provider=SQLOLEDB;Data Source=whsql-
v20.prod.mesa1.secureserver.net;Initial Catalog=DB_146345;User
Id=eatatfreds2;Password=Discount2;"
conn.Open connect
%>
<%
dim rsccatid
Set rsC=Server.CreateObject("adodb.recordset")
strSQL = "SELECT DISTINCT category,categoryz,CAT_ID FROM card_details
where issubcat = 0 ORDER BY category"
rsC.Open strSQL, conn
rsccatid = rsC("CAT_ID")
Do while not rsC.EOF
if Request.querystring("cregion") = rsC("category") then 'if this is
the selected one then display as selected
Response.Write "<OPTION VALUE = '" & trim(rsC("category")) & "'
SELECTED>"
Response.Write rsC("categoryz") & "</Option>"
rsC.MoveNext
else
Response.Write "<OPTION VALUE = '" & trim(rsC("category")) & "'>"
Response.Write rsC("categoryz") & "</Option>"
rsC.MoveNext
end if
loop %>
</SELECT>
<%
Set rsC = Nothing
conn.Close
%>
'''''''''''''
Thanks in advance
..netsports
category, but sometimes out of the blue, an "Either BOF or EOF is
true, or the current record has been deleted.." error will pop up on
the line "strcat_id = getcat("CAT_ID") " line in the asp script that
the form posts to. In the HTML source code for the page containing the
input form, all the category names are correctly formatted ( I used a
trim() function to make sure there were no spaces in the option value
for the select object)
''''block of code that gets the CAT_ID
<%
Dim conn, connect, strSQL, strsQL2, getcat, getsub, strcat_id,
strsub_id
set conn=server.CreateObject("adodb.connection")
connect = "Provider=SQLOLEDB;Data Source=whsql-
v20.prod.mesa1.secureserver.net;Initial Catalog=DB_146345;User
Id=eatatfreds2;Password=Discount2;"
conn.Open connect
Set getcat=Server.CreateObject("adodb.recordset")
strSQL = "SELECT CAT_ID FROM card_details where category = '" &
strcategory & "' and issubcat = 'false'"
getcat.Open strSQL, conn
strcat_id = getcat("CAT_ID")
Set getcat = Nothing
...%>
'''''''''''asp block that is creating dynamic data for listbox menu on
the form input page
<!-- dynamic category pulldowns -->
<SELECT name=category>
<%
Dim rsC, conn, connect, strSQL
set conn=server.CreateObject ("adodb.connection")
connect = "Provider=SQLOLEDB;Data Source=whsql-
v20.prod.mesa1.secureserver.net;Initial Catalog=DB_146345;User
Id=eatatfreds2;Password=Discount2;"
conn.Open connect
%>
<%
dim rsccatid
Set rsC=Server.CreateObject("adodb.recordset")
strSQL = "SELECT DISTINCT category,categoryz,CAT_ID FROM card_details
where issubcat = 0 ORDER BY category"
rsC.Open strSQL, conn
rsccatid = rsC("CAT_ID")
Do while not rsC.EOF
if Request.querystring("cregion") = rsC("category") then 'if this is
the selected one then display as selected
Response.Write "<OPTION VALUE = '" & trim(rsC("category")) & "'
SELECTED>"
Response.Write rsC("categoryz") & "</Option>"
rsC.MoveNext
else
Response.Write "<OPTION VALUE = '" & trim(rsC("category")) & "'>"
Response.Write rsC("categoryz") & "</Option>"
rsC.MoveNext
end if
loop %>
</SELECT>
<%
Set rsC = Nothing
conn.Close
%>
'''''''''''''
Thanks in advance
..netsports