Hello sir,
I am facing some problem for which I am trying hard to solve it. But in vain.
This programe is for View/Deletion. When I run program for first time, I select vlan from list and press Enter key, it display the details. Now when I again select vlan from list and press Enter key, following error occurs.
Error Type:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
I think error is in line no. 44. How to solve this problem?
Thanks and regards,
Vikas - <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
-
<!--#include file="style.css"-->
-
<!--#include file="first.asp"-->
-
<html>
-
<head>
-
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-
<title>VLAN View/Deletion</title>
-
<script type="text/javascript">
-
function menu(){
-
window.location="menu.asp"
-
}
-
</script>
-
</head>
-
<body>
-
<form name="myform" method="post" action="vlan_master_del.asp">
-
<div id="myDiv" style="position:absolute; top:150px; left:200px; width:600px; height:500px">
-
<%
-
set conn = server.createobject("ADODB.Connection")
-
set rs = server.createobject("ADODB.Recordset")
-
conn.open "Provider=MSDAORA.1; dsn=ipis; Password=ipis; User Id=ipis; Data Source=isap2000; Persist Security Info=True"
-
%>
-
<h2><center>VLAN Master View/Deletion</center></h2>
-
<table align="center">
-
<tr>
-
<td>Select a VLAN : </td>
-
<td>
-
<select name="vlan_name">
-
<% set rs = conn.execute("select vlan_name from vlan_master order by vlan_name")
-
do while not rs.eof %>
-
<% if not isempty(request.form("submit")) and request.form("vlan_name")=rs("vlan_name") then %>
-
<option value="<%=rs("vlan_name")%>" selected><%=rs("vlan_name")%></option>
-
<% else %>
-
<option value="<%=rs("vlan_name")%>"><%=rs("vlan_name")%></option>
-
<% end if
-
rs.movenext
-
loop %>
-
</select>
-
</td>
-
<td><input type="submit" style="width:100px " name="submit" value="Generate"/></td>
-
</tr>
-
</table>
-
<% if not isempty(request.form("submit")) then
-
v_vlan_name = trim(request.form("vlan_name"))
-
set rs = conn.execute("select vlan_name, first_ip, last_ip, subnet_mask, router, network_switch, camera, printer, server, ip_phone, pc from vlan_master where vlan_name = '"&v_vlan_name&"'")
-
%>
-
<table align="center" border="1">
-
<tr>
-
<td>
-
<table>
-
<tr>
-
<td align="right" style="width:125px ">VLAN Name :</td>
-
<td>
-
<input type="text" style="width:250px " name="vlan_name" value="<%=rs("vlan_name")%>"/>
-
</td>
-
</tr>
-
<tr>
-
<td align="right" style="width:125px ">VLAN First IP :</td>
-
<td align="left">
-
<input type="text" style="width:100px " name="first_ip" value="<%=rs("first_ip")%>"/>
-
</td>
-
</tr>
-
<tr>
-
<td align="right" style="width:125px ">VLAN Last IP :</td>
-
<td align="left">
-
<input type="text" style="width:100px " name="last_ip" value="<%=rs("last_ip")%>"/>
-
</td>
-
</tr>
-
<tr>
-
<td align="right" style="width:125px ">VLAN Subnet Mask :</td>
-
<td align="left">
-
<input type="text" style="width:100px " name="subnet_mask" value="<%=rs("subnet_mask")%>"/>
-
</td>
-
</tr>
-
</table>
-
</td>
-
</tr>
-
<tr>
-
<td>
-
<table>
-
<tr>
-
<td align="right" style="width:125px ">Router :</td>
-
<td align="left"><input type="text" style="width:50px " name="router" value="<%=rs("router")%>"/></td>
-
<td align="right" style="width:125px ">Switch :</td>
-
<td align="left"><input type="text" style="width:50px " name="network_switch" value="<%=rs("network_switch")%>"/></td>
-
</tr>
-
<tr>
-
<td align="right" style="width:125px ">Camera :</td>
-
<td align="left"><input type="text" style="width:50px " name="camera" value="<%=rs("camera")%>"/></td>
-
<td align="right" style="width:125px ">Printer :</td>
-
<td align="left"><input type="text" style="width:50px " name="printer" value="<%=rs("printer")%>"/></td>
-
</tr>
-
<tr>
-
<td align="right" style="width:125px ">Server :</td>
-
<td align="left"><input type="text" style="width:50px " name="server" value="<%=rs("server")%>"/></td>
-
<td align="right" style="width:125px ">IP Phone :</td>
-
<td align="left"><input type="text" style="width:50px " name="ip_phone" value="<%=rs("ip_phone")%>"/></td>
-
</tr>
-
<tr>
-
<td align="right" style="width:125px ">PC :</td>
-
<td align="left"><input type="text" style="width:50px " name="pc" value="<%=rs("PC")%>"/></td>
-
</tr>
-
</table>
-
</td>
-
</tr>
-
<tr>
-
<td>
-
<table align="center">
-
<tr>
-
<td><input type="button" name="back" value="Back" style="width:100px" onclick="menu();"/></td>
-
<td><input type="button" name="delete1" value="Delete" style="width:100px"/></td>
-
</tr>
-
</table>
-
</td>
-
</tr>
-
</table>
-
<% end if %>
-
</div>
-
</form>
-
</body>
-
</html>
1  3010 
hello vikas
plz modify your code with this modified code from line 23 to 45 - <table align="center">
-
<tr>
-
<td>Select a VLAN : </td>
-
<td>
-
<select Id="vlan_name" Name="vlan_name" onChange="this.form.submit();">
-
-
-
<option value="">[Select Vlane]</option>
-
<%set rs = conn.execute("select vlan_name from vlan_master order by vlan_name")%>
-
-
<% while not rs.eof %>
-
<option value=<%=rs("vlan_name")%> ><%=rs("vlan_name")%></option>
-
</option>
-
-
<%
-
rs.movenext
-
wend
-
rs.close
-
%>
-
</select>
-
</td>
-
<td><input type="submit" style="width:100px " name="submit" value="Generate"/></td>
-
</tr>
-
</table>
-
<% v_vlan_name=Request.Form("vlan_name")
-
-
set rs = conn.execute("select vlan_name, first_ip, last_ip, subnet_mask, router, network_switch, camera, printer, server, ip_phone, pc from vlan_master where vlan_name = '"&v_vlan_name&"'")
-
if Rs.eof=true then
-
response.Write "Nothing to Display"
-
else
-
%>
let us know what happens
Regards
Jha
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Chumley the Walrus |
last post by:
When i put an explicit value in the sql statement below as
"displaygroup =1 ",
i do see my records (or my response.write test after the recordset
Open line) appear on my dynamic page. But when use...
|
by: Gabriel Mejía |
last post by:
Services or applications using ActiveX Data Objects (ADO) 2.0 or greater may
intermittently return empty recordsets on queries that should be returning
valid results. At the time the problem...
|
by: Maria |
last post by:
Is there another way to delete the current record in a subform from the main
form, another subform or a sub-subform other than setting focus on a field
in the subform and using run command...
|
by: hebandgene |
last post by:
When I delete a record in a subform I get the warning that I'm about to
delete a record, followed by an error "No current record." When I
click OK obviously the record is deleted and it goes to...
|
by: ruvi |
last post by:
I am getting runtime error 3021 - Either EOF or BOF is true or the current record has been deleted.....
I have 2 combo boxes in a form- One for the client and the other for the project.
When the...
|
by: Kosmos |
last post by:
Hey ya'll...I can't seem to figure out why I'm getting this error message, but it all started when I added the new line of code with the recSet5.AddNew --- when I ran the first line, the logic worked...
|
by: mask |
last post by:
Hi all,
I have a problem of urgent nature . I am using Oracle and VB6 for an application . i am using ADODB coding
In oracle i have created a table and trying to connect thru vb form. the vb code...
|
by: THEAF |
last post by:
i'm trying to create a reminder form, when i add a new reminder its ok but when i try to delete a reminder then i get No Current Record problem.
Form Load
Private Sub Form_Load()
Dim s() As...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
| | |
