I am receiving this error and have change the cursor type to 3.. I don't know what else to do... please take a gander at my code.. thanks in advance.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Info
Dim Info_numRows
Dim id, Address, City, St, Zip, employee
Dim strSQL
Address = Request.Form("Address")
City = Request.Form("City")
St = Request.Form("St")
Zip = Request.Form("Zip")
'ID = Request.Form("id")
ID = TRIM(Request( "ID" ))
Set Info = Server.CreateObject("ADODB.Recordset")
Info.ActiveConnection = MM_MAPP_CONN_STRING
Info.Source = "SELECT * FROM Info where ID =" & ID
Info.CursorType = 3
Info.CursorLocation = 2
'Info.LockType = 1
Info.Open()
'Info_numRows = 0
'strSQL = "UPDATE INFO SET Address = " & Address & ", City = " & City & ", State = " & St & ", Zip = " & Zip & " "
'set Info=
'objConn.execute(strSQL)
'Info.Find "ID=" & ID
'if Request.Form(address) <> "" then
if not Info.EOF then
Info.Fields("Address") = Request.Form("Address")
'endif
'if Request.Form(city) <> "" then
Info.Fields("City") = Request.Form("City")
'endif
'if Request.Form(st) <> ""
Info.Field("State") = Request.Form("St")
'endif
'if Request.Form(zip) <> ""
Info.Fields("Zip") = Request.Form("Zip")
'endif
end if
Info.Update
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="styles.css" rel="stylesheet" type="text/css">
<title>Untitled Document</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
background-color: #003366;
}
.style5 {font-family: Tahoma, "Trebuchet MS"; font-weight: bold; font-size: 14px; }
.style1 { font-size: 14px;
font-weight: bold;
}
-->
</style></head>
<body>
<table width="786" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="780" height="139" valign="top" bgcolor="#003366"><p><img src="images/header.gif" width="780" height="139"></p>
</td>
</tr>
<tr>
<td height="459" valign="top"><table width="200" border="0" cellspacing="0">
<tr>
<th width="780" height="33" align="left" valign="top"><img src="images/topmenu.gif" width="780" height="31"></th>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="35%" rowspan="2" align="left" valign="top" bgcolor="#FFF8E3"> </td>
<td width="65%" height="252" align="center" valign="top"><p> </p>
<p><img src="images/map.gif" width="258" height="37"></p>
<table width="496" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr bgcolor="#D9A816">
<td colspan="3"><span class="style1">Address Information for : & nbsp; <%=employee%></span></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td width="54" rowspan="2"> </td>
<td width="167"><span class="style1">Old Address</span></td>
<td width="267"><span class="style1">New Address </span></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td height="45"><strong> Address</strong></td>
<td align="center"><% = Address %></td>
<td><div align="center"><%Request.Form(Address)%> </div></td>
</tr>
<tr>
<td height="39"><strong> City</strong></td>
<td align="center"><% = City%>
</td>
<td><div align="center">
<%Request.Form(City)%>
</div></td>
</tr>
<tr>
<td height="42"><strong> State</strong></td>
<td align="center"><%=St%> </td>
<td> <div align="center">
<%Request.Form(St)%>
</div></td></tr>
<tr>
<td height="39"><strong> Zip</strong></td>
<td align="center"><%=Zip%> </td>
<td> <div align="center">
<%Request.Form(zip)%>
</div></td></tr>
<tr>
<td height="18" colspan="3"> </td>
</tr>
</table>
<p> </p>
<p> </p>
<p>   ; & nbsp; &nb sp; </p>
<p>   ; & nbsp;</p>
<p> </p>
<p> </p>
<p> </p>
<p><img src="images/clogo.gif" width="153" height="70"></p>
<p> </p></td>
</tr>
<tr>
<td height="68" align="right" valign="top"><img src="images/footer.gif" width="513" height="68"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
Info.Close()
Set Info = Nothing
%>
ADODB.Recordset error '800a0cb3'
