ASP coding errors

  • Thread starter Gale Coleman - LSND
  • Start date
G

Gale Coleman - LSND

ASP, VBscript, IIS 6, Access database

Hello,

I have a form page that people fill out and push submit. When they push
submit, the information is stored in a database in two different tables.
You are then directed to a page that lists everything you have submitted so
you can print it. I am having problems with this second page. Information
from one of the tables is listed, but the information from the other table
isn't listed. They are related by the "casenumber" that is given when
submitted.

I have looked at the tables, and the information is there, and they have the
same casenumber, but the information doesn't get put on the 2nd page. We
just moved our site to IIS 6. Everything was working perfectly in IIS 5,
but is now "broken" in IIS 6. I always get the following error when it hits
the coding that should put in the information from the second table:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested
operation requires a current record.

/done1.asp, line 197

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connNewdatabase.asp" -->

<%
Dim rsClients__svuserid
rsClients__svuserid = "0"
if (Session("UserID") <> "") then rsClients__svuserid = Session("UserID")
%>
<%
set rsClients = Server.CreateObject("ADODB.Recordset")
rsClients.ActiveConnection = MM_connNewdatabase_STRING
rsClients.Source = "SELECT * FROM CLIENTSW WHERE CASENUM=" +
Replace(rsClients__svuserid, "'", "''") + " ORDER BY CASENUM"
rsClients.CursorType = 0
rsClients.CursorLocation = 2
rsClients.LockType = 3
rsClients.Open()
rsClients_numRows = 0
%>
<%
Dim rsEligibility__svuserid
rsEligibility__svuserid = "0"
if (Session("UserID") <> "") then rsEligibility__svuserid =
Session("UserID")
%>
<%
set rsEligibility = Server.CreateObject("ADODB.Recordset")
rsEligibility.ActiveConnection = MM_connNewdatabase_STRING
rsEligibility.Source = "SELECT * FROM ELIGIBILITY WHERE CASENUM=" +
Replace(rsEligibility__svuserid, "'", "''") + " ORDER BY CASENUM"
rsEligibility.CursorType = 0
rsEligibility.CursorLocation = 2
rsEligibility.LockType = 3
rsEligibility.Open()
rsEligibility_numRows = 0
%>
<%
Dim rsKnow__svuserid
rsKnow__svuserid = "0"
if (Session("UserID") <> "") then rsKnow__svuserid = Session("UserID")
%>
<%
Dim userAreaCode, userPhoneNumber, userAddress, userCity, userState,
userZipcode, userFirstname, userLastname, useremail
userAreaCode = (rsClients.Fields.Item("CACODE").Value)
userPhoneNumber = (rsClients.Fields.Item("CPHONE").Value)
userAddress = (rsClients.Fields.Item("CADDRESS").Value)
userCity = (rsClients.Fields.Item("CCITY").Value)
userState = (rsClients.Fields.Item("CSTATE").Value)
userZipcode = (rsClients.Fields.Item("CZIP").Value)
userFirstname = (rsClients.Fields.Item("CFNAME").Value)
userLastname = (rsClients.Fields.Item("CLNAME").Value)
useremail = Session("email")

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "192.168.10.1"
Mail.Port = 25

Mail.From = useremail
Mail.FromName = userFirstname & " " & userLastname
Mail.AddAddress useremail
Mail.AddCC "(e-mail address removed)"
Mail.AddBCC "(e-mail address removed)"
Mail.AddBCC "(e-mail address removed)"
Mail.Subject = "Application submitted"
Mail.Body = "<HTML><BODY>Thank you for applying for our services. Please be
reminded that it may take up to one week to get a reply." & "<br>"&"<br>"&
"If you have an emergency, please call the toll free number to apply for
services, and indicate that you have already submitted an application
online. 1-800-634-5263." & "<br>" & "<br>" & "The phone number you provided
was:" &"&nbsp;" &"(" & userAreaCode &")"& " " & userPhoneNumber
&"."&"<br>" &"<br>"& "The mailing address you provided was:" & "<br>" &
"<br>" & userFirstname & "&nbsp;" & userLastname & "<br>" & userAddress
&"<br>"& userCity & "&nbsp;" & userState & "&nbsp;" & userZipcode & "<br>" &
"<br>" &"If you find that this information is wrong, please send an email
to: , and indicate the changes.</HTML></BODY>"
Mail.isHTML = True

Mail.Send

%>

<%
set rsKnow = Server.CreateObject("ADODB.Recordset")
rsKnow.ActiveConnection = MM_connNewdatabase_STRING
rsKnow.Source = "SELECT CLIENTSW.KNOW, subKNOW.KNOWLETTER, subKNOW.KNOWNAME
FROM subKNOW INNER JOIN CLIENTSW ON subKNOW.KNOWLETTER = CLIENTSW.KNOW
Where CASENUM=" + Replace(rsKnow__svuserid, "'", "''") + ""
rsKnow.CursorType = 0
rsKnow.CursorLocation = 2
rsKnow.LockType = 3
rsKnow.Open()
rsKnow_numRows = 0
%>
<html>
<head>
<title>Application Submitted</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="pub_pages.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p class="applicationheading">Please print for your records.</p>
<table width="600" border="0" cellpadding="1" align="center"
class="application" cellspacing="0">
<tr bordercolor="#000000">
<td colspan="6" align="center" valign="top" class="underborder">
<p class="applicationheading">Application For Services<br>
Legal Services of North Dakota<br>
PO Box 1666<br>
Minot, ND 58702<br>
1-800-634-5263</p> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">&nbsp;</td>
<td width="5">&nbsp;</td>
<td width="189">&nbsp;</td>
<td width="152">&nbsp;</td>
<td width="5">&nbsp;</td>
<td width="127" class="borderright">&nbsp;</td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Case
Number: </td>
<td width="5">&nbsp;</td>
<td width="189"><%=(rsClients.Fields.Item("CASENUM").Value)%></td>
<td width="152" align="right" valign="bottom">Date:</td>
<td width="5">&nbsp;</td>
<td width="127" class="borderright" align="left" valign="bottom">
<%=Date()%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Name
and
Address: </td>
<td width="5">&nbsp;</td>
<td colspan="4"
class="borderright"><%=(rsClients.Fields.Item("CFNAME").Value)%>&nbsp;<%=(rs
Clients.Fields.Item("CLNAME").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="17"
class="borderleft"><img
src="administrative_office/graphics/transparentshim.gif" width="195"
height="5"></td>
<td width="5" height="17"><img
src="administrative_office/graphics/transparentshim.gif" width="5"
height="5"></td>
<td width="189"
height="17"><%=(rsClients.Fields.Item("CADDRESS").Value)%>&nbsp;</td>
<td width="152" height="17"><img
src="administrative_office/graphics/transparentshim.gif" width="120"
height="5"></td>
<td width="5" height="17"><img
src="administrative_office/graphics/transparentshim.gif" width="5"
height="5"></td>
<td width="127" height="17" class="borderright">&nbsp;</td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">&nbsp;</td>
<td width="5">&nbsp;</td>
<td colspan="4"
class="borderright"><%=(rsClients.Fields.Item("CCITY").Value)%>&nbsp;<%=(rsC
lients.Fields.Item("CSTATE").Value)%>&nbsp;&nbsp;<%=(rsClients.Fields.Item("
CZIP").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="14"
class="borderleft">Spouse's
Name (Optional):</td>
<td width="5" height="14">&nbsp;</td>
<td colspan="4" height="14" align="left" valign="bottom"
class="borderright"><%=(rsClients.Fields.Item("SFNAME").Value)%>&nbsp;<%=(rs
Clients.Fields.Item("SLNAME").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Phone
Number:</td>
<td width="5">&nbsp;</td>
<td width="189" align="left"
valign="bottom"><%=(rsClients.Fields.Item("CACODE").Value)%>-
<%=(rsClients.Fields.Item("CPHONE").Value)%></td>
<td width="152" align="right" valign="bottom">E-mail Address:</td>
<td width="5" align="left" valign="bottom">&nbsp; </td>
<td width="127" align="left" valign="bottom" class="borderright">
<% = Session("email")%> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="11"
class="borderleft">Sex:</td>
<td width="5" height="11">&nbsp;</td>
<td width="189" height="11">
<%If (rsClients.Fields.Item("SEX").Value) = "F" then Response.Write
("Female") else Response.Write "Male" %> </td>
<td width="152" align="right" valign="bottom"
height="11">Birthdate:</td>
<td width="5" align="left" valign="bottom" height="11">&nbsp;</td>
<td width="127" align="left" valign="bottom" height="11"
class="borderright"><%=(rsClients.Fields.Item("BDATE").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="5"
class="borderleft">Race
(optional)</td>
<td width="5" height="5">&nbsp;</td>
<td width="189" height="5">
<%If(rsClients.Fields.Item("RACE").Value) = "W" then Response.Write
"White" else if (rsClients.Fields.Item("RACE").Value)= "B" then
Response.Write "Black" else if (rsClients.Fields.Item("RACE").Value) = "H"
then Response.Write "Hispanic" else if(rsClients.Fields.Item("RACE").Value)
= "N" then Response.Write "Native American" else
if(rsClients.Fields.Item("RACE").Value) = "A" then Response.Write "Asian"
else Response.Write "Other"%> </td>
<td width="152" align="right" height="5">Where do you live:</td>
<td width="5" height="5">&nbsp; </td>
<td width="127" height="5" class="borderright"><%If
(rsClients.Fields.Item("LIVEAR").Value) = "A" then Response.Write
"Apartment" else if(rsClients.Fields.Item("LIVEAR").Value) = "B" then
Response.Write "Rented Home" else if (rsClients.Fields.Item("LIVEAR").Value)
= "C" then Response.Write "Condominium" else if
(rsClients.Fields.Item("LIVEAR").Value) = "H" then Response.Write "Own Home"
else if (rsClients.Fields.Item("LIVEAR").Value) = "J" then Response.Write
"Jail" else if (rsClients.Fields.Item("LIVEAR").Value) = "M" then
Response.Write "Mental Institution" else if
(rsClients.Fields.Item("LIVEAR").Value) = "N" then Response.Write "Nursing
Home" else if (rsClients.Fields.Item("LIVEAR").Value) = "P" then
Response.Write "Prison" else if (rsClients.Fields.Item("LIVEAR").Value) =
"R" then Response.Write "Rented Room" else if
(rsClients.Fields.Item("LIVEAR").Value) = "S" then Response.Write "Senior
Housing" else if (rsClients.Fields.Item("LIVEAR").Value) = "T" then
Response.Write "Mobile Home" else if (rsClients.Fields.Item("LIVEAR").Value)
= "U" then Response.Write "Unknown" else if
(rsClients.Fields.Item("LIVEAR").Value) = "X" then Response.Write
"Relatives" else if (rsClients.Fields.Item("LIVEAR").Value) = "Y" then
Response.Write "Shelter" else Response.Write "Homeless"%> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">Children
in Household:</td>
<td width="5">&nbsp;</td>
<td width="189"><%=(rsClients.Fields.Item("CHILDREN").Value)%></td>
<td width="152" align="right" valign="bottom">Adults in Household:</td>
<td width="5" align="left" valign="bottom">&nbsp;</td>
<td width="127" align="left" valign="bottom"
class="borderright"><%=(rsClients.Fields.Item("ADULTS").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Learned
about
LSND Where?:</td>
<td width="5">&nbsp;</td>
<td colspan="4"
class="borderright"><%=(rsKnow.Fields.Item("KnowLetter").Value)%>-
<%=(rsKnow.Fields.Item("KNOWNAME").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Are you
a
Citizen of the US?:</td>
<td width="5">&nbsp;</td>
<td width="189">
<%if (rsClients.Fields.Item("CITIZEN").Value) = "True" then
Response.Write "Yes" Else Response.Write "No"%> </td>
<td width="152" align="right" valign="bottom">Citizen Status:</td>
<td width="5" align="left" valign="bottom">&nbsp; </td>
<td width="127" align="left" valign="bottom" class="borderright">
<%If (rsClients.Fields.Item("CStatus").Value) = "A" then
Response.Write "A - Citizen" Else if
(rsClients.Fields.Item("CStatus").Value) = "B" then Response.Write "B -
Eligible Alien" Else Response.Write "C - Not a Citizen" %> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Adverse
Party
Name:</td>
<td width="5">&nbsp;</td>
LINE 197 <td width="189">&nbsp;<span
class="borderright"><%=(rsEligibility.Fields.Item("FNADV").Value)%></span><%
=(rsEligibility.Fields.Item("LNADV").Value)%></td>
 
M

Mike Brind

Gale Coleman - LSND said:
ASP, VBscript, IIS 6, Access database

Hello,

I have a form page that people fill out and push submit. When they push
submit, the information is stored in a database in two different tables.
You are then directed to a page that lists everything you have submitted
so
you can print it. I am having problems with this second page.
Information
from one of the tables is listed, but the information from the other table
isn't listed. They are related by the "casenumber" that is given when
submitted.

I have looked at the tables, and the information is there, and they have
the
same casenumber, but the information doesn't get put on the 2nd page. We
just moved our site to IIS 6. Everything was working perfectly in IIS 5,
but is now "broken" in IIS 6. I always get the following error when it
hits
the coding that should put in the information from the second table:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted.
Requested
operation requires a current record.

/done1.asp, line 197

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connNewdatabase.asp" -->

<%
Dim rsClients__svuserid
rsClients__svuserid = "0"
if (Session("UserID") <> "") then rsClients__svuserid = Session("UserID")
%>
<%
set rsClients = Server.CreateObject("ADODB.Recordset")
rsClients.ActiveConnection = MM_connNewdatabase_STRING
rsClients.Source = "SELECT * FROM CLIENTSW WHERE CASENUM=" +
Replace(rsClients__svuserid, "'", "''") + " ORDER BY CASENUM"
rsClients.CursorType = 0
rsClients.CursorLocation = 2
rsClients.LockType = 3
rsClients.Open()
rsClients_numRows = 0
%>
<%
Dim rsEligibility__svuserid
rsEligibility__svuserid = "0"
if (Session("UserID") <> "") then rsEligibility__svuserid =
Session("UserID")
%>
<%
set rsEligibility = Server.CreateObject("ADODB.Recordset")
rsEligibility.ActiveConnection = MM_connNewdatabase_STRING
rsEligibility.Source = "SELECT * FROM ELIGIBILITY WHERE CASENUM=" +
Replace(rsEligibility__svuserid, "'", "''") + " ORDER BY CASENUM"
rsEligibility.CursorType = 0
rsEligibility.CursorLocation = 2
rsEligibility.LockType = 3
rsEligibility.Open()
rsEligibility_numRows = 0
%>
<%
Dim rsKnow__svuserid
rsKnow__svuserid = "0"
if (Session("UserID") <> "") then rsKnow__svuserid = Session("UserID")
%>
<%
Dim userAreaCode, userPhoneNumber, userAddress, userCity, userState,
userZipcode, userFirstname, userLastname, useremail
userAreaCode = (rsClients.Fields.Item("CACODE").Value)
userPhoneNumber = (rsClients.Fields.Item("CPHONE").Value)
userAddress = (rsClients.Fields.Item("CADDRESS").Value)
userCity = (rsClients.Fields.Item("CCITY").Value)
userState = (rsClients.Fields.Item("CSTATE").Value)
userZipcode = (rsClients.Fields.Item("CZIP").Value)
userFirstname = (rsClients.Fields.Item("CFNAME").Value)
userLastname = (rsClients.Fields.Item("CLNAME").Value)
useremail = Session("email")

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "192.168.10.1"
Mail.Port = 25

Mail.From = useremail
Mail.FromName = userFirstname & " " & userLastname
Mail.AddAddress useremail
Mail.AddCC "(e-mail address removed)"
Mail.AddBCC "(e-mail address removed)"
Mail.AddBCC "(e-mail address removed)"
Mail.Subject = "Application submitted"
Mail.Body = "<HTML><BODY>Thank you for applying for our services. Please
be
reminded that it may take up to one week to get a reply." & "<br>"&"<br>"&
"If you have an emergency, please call the toll free number to apply for
services, and indicate that you have already submitted an application
online. 1-800-634-5263." & "<br>" & "<br>" & "The phone number you
provided
was:" &"&nbsp;" &"(" & userAreaCode &")"& " " & userPhoneNumber
&"."&"<br>" &"<br>"& "The mailing address you provided was:" & "<br>" &
"<br>" & userFirstname & "&nbsp;" & userLastname & "<br>" & userAddress
&"<br>"& userCity & "&nbsp;" & userState & "&nbsp;" & userZipcode & "<br>"
&
"<br>" &"If you find that this information is wrong, please send an email
to: , and indicate the changes.</HTML></BODY>"
Mail.isHTML = True

Mail.Send

%>

<%
set rsKnow = Server.CreateObject("ADODB.Recordset")
rsKnow.ActiveConnection = MM_connNewdatabase_STRING
rsKnow.Source = "SELECT CLIENTSW.KNOW, subKNOW.KNOWLETTER,
subKNOW.KNOWNAME
FROM subKNOW INNER JOIN CLIENTSW ON subKNOW.KNOWLETTER = CLIENTSW.KNOW
Where CASENUM=" + Replace(rsKnow__svuserid, "'", "''") + ""
rsKnow.CursorType = 0
rsKnow.CursorLocation = 2
rsKnow.LockType = 3
rsKnow.Open()
rsKnow_numRows = 0
%>
<html>
<head>
<title>Application Submitted</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="pub_pages.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p class="applicationheading">Please print for your records.</p>
<table width="600" border="0" cellpadding="1" align="center"
class="application" cellspacing="0">
<tr bordercolor="#000000">
<td colspan="6" align="center" valign="top" class="underborder">
<p class="applicationheading">Application For Services<br>
Legal Services of North Dakota<br>
PO Box 1666<br>
Minot, ND 58702<br>
1-800-634-5263</p> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">&nbsp;</td>
<td width="5">&nbsp;</td>
<td width="189">&nbsp;</td>
<td width="152">&nbsp;</td>
<td width="5">&nbsp;</td>
<td width="127" class="borderright">&nbsp;</td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Case
Number: </td>
<td width="5">&nbsp;</td>
<td width="189"><%=(rsClients.Fields.Item("CASENUM").Value)%></td>
<td width="152" align="right" valign="bottom">Date:</td>
<td width="5">&nbsp;</td>
<td width="127" class="borderright" align="left" valign="bottom">
<%=Date()%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Name
and
Address: </td>
<td width="5">&nbsp;</td>
<td colspan="4"
class="borderright"><%=(rsClients.Fields.Item("CFNAME").Value)%>&nbsp;<%=(rs
Clients.Fields.Item("CLNAME").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="17"
class="borderleft"><img
src="administrative_office/graphics/transparentshim.gif" width="195"
height="5"></td>
<td width="5" height="17"><img
src="administrative_office/graphics/transparentshim.gif" width="5"
height="5"></td>
<td width="189"
height="17"><%=(rsClients.Fields.Item("CADDRESS").Value)%>&nbsp;</td>
<td width="152" height="17"><img
src="administrative_office/graphics/transparentshim.gif" width="120"
height="5"></td>
<td width="5" height="17"><img
src="administrative_office/graphics/transparentshim.gif" width="5"
height="5"></td>
<td width="127" height="17" class="borderright">&nbsp;</td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">&nbsp;</td>
<td width="5">&nbsp;</td>
<td colspan="4"
class="borderright"><%=(rsClients.Fields.Item("CCITY").Value)%>&nbsp;<%=(rsC
lients.Fields.Item("CSTATE").Value)%>&nbsp;&nbsp;<%=(rsClients.Fields.Item("
CZIP").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="14"
class="borderleft">Spouse's
Name (Optional):</td>
<td width="5" height="14">&nbsp;</td>
<td colspan="4" height="14" align="left" valign="bottom"
class="borderright"><%=(rsClients.Fields.Item("SFNAME").Value)%>&nbsp;<%=(rs
Clients.Fields.Item("SLNAME").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Phone
Number:</td>
<td width="5">&nbsp;</td>
<td width="189" align="left"
valign="bottom"><%=(rsClients.Fields.Item("CACODE").Value)%>-
<%=(rsClients.Fields.Item("CPHONE").Value)%></td>
<td width="152" align="right" valign="bottom">E-mail Address:</td>
<td width="5" align="left" valign="bottom">&nbsp; </td>
<td width="127" align="left" valign="bottom" class="borderright">
<% = Session("email")%> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="11"
class="borderleft">Sex:</td>
<td width="5" height="11">&nbsp;</td>
<td width="189" height="11">
<%If (rsClients.Fields.Item("SEX").Value) = "F" then Response.Write
("Female") else Response.Write "Male" %> </td>
<td width="152" align="right" valign="bottom"
height="11">Birthdate:</td>
<td width="5" align="left" valign="bottom" height="11">&nbsp;</td>
<td width="127" align="left" valign="bottom" height="11"
class="borderright"><%=(rsClients.Fields.Item("BDATE").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" height="5"
class="borderleft">Race
(optional)</td>
<td width="5" height="5">&nbsp;</td>
<td width="189" height="5">
<%If(rsClients.Fields.Item("RACE").Value) = "W" then Response.Write
"White" else if (rsClients.Fields.Item("RACE").Value)= "B" then
Response.Write "Black" else if (rsClients.Fields.Item("RACE").Value) = "H"
then Response.Write "Hispanic" else
if(rsClients.Fields.Item("RACE").Value)
= "N" then Response.Write "Native American" else
if(rsClients.Fields.Item("RACE").Value) = "A" then Response.Write "Asian"
else Response.Write "Other"%> </td>
<td width="152" align="right" height="5">Where do you live:</td>
<td width="5" height="5">&nbsp; </td>
<td width="127" height="5" class="borderright"><%If
(rsClients.Fields.Item("LIVEAR").Value) = "A" then Response.Write
"Apartment" else if(rsClients.Fields.Item("LIVEAR").Value) = "B" then
Response.Write "Rented Home" else if
(rsClients.Fields.Item("LIVEAR").Value)
= "C" then Response.Write "Condominium" else if
(rsClients.Fields.Item("LIVEAR").Value) = "H" then Response.Write "Own
Home"
else if (rsClients.Fields.Item("LIVEAR").Value) = "J" then Response.Write
"Jail" else if (rsClients.Fields.Item("LIVEAR").Value) = "M" then
Response.Write "Mental Institution" else if
(rsClients.Fields.Item("LIVEAR").Value) = "N" then Response.Write "Nursing
Home" else if (rsClients.Fields.Item("LIVEAR").Value) = "P" then
Response.Write "Prison" else if (rsClients.Fields.Item("LIVEAR").Value) =
"R" then Response.Write "Rented Room" else if
(rsClients.Fields.Item("LIVEAR").Value) = "S" then Response.Write "Senior
Housing" else if (rsClients.Fields.Item("LIVEAR").Value) = "T" then
Response.Write "Mobile Home" else if
(rsClients.Fields.Item("LIVEAR").Value)
= "U" then Response.Write "Unknown" else if
(rsClients.Fields.Item("LIVEAR").Value) = "X" then Response.Write
"Relatives" else if (rsClients.Fields.Item("LIVEAR").Value) = "Y" then
Response.Write "Shelter" else Response.Write "Homeless"%> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">Children
in Household:</td>
<td width="5">&nbsp;</td>
<td width="189"><%=(rsClients.Fields.Item("CHILDREN").Value)%></td>
<td width="152" align="right" valign="bottom">Adults in Household:</td>
<td width="5" align="left" valign="bottom">&nbsp;</td>
<td width="127" align="left" valign="bottom"
class="borderright"><%=(rsClients.Fields.Item("ADULTS").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">Learned
about
LSND Where?:</td>
<td width="5">&nbsp;</td>
<td colspan="4"
class="borderright"><%=(rsKnow.Fields.Item("KnowLetter").Value)%>-
<%=(rsKnow.Fields.Item("KNOWNAME").Value)%></td>
</tr>
<tr>
<td width="202" align="right" valign="bottom" class="borderleft">Are
you
a
Citizen of the US?:</td>
<td width="5">&nbsp;</td>
<td width="189">
<%if (rsClients.Fields.Item("CITIZEN").Value) = "True" then
Response.Write "Yes" Else Response.Write "No"%> </td>
<td width="152" align="right" valign="bottom">Citizen Status:</td>
<td width="5" align="left" valign="bottom">&nbsp; </td>
<td width="127" align="left" valign="bottom" class="borderright">
<%If (rsClients.Fields.Item("CStatus").Value) = "A" then
Response.Write "A - Citizen" Else if
(rsClients.Fields.Item("CStatus").Value) = "B" then Response.Write "B -
Eligible Alien" Else Response.Write "C - Not a Citizen" %> </td>
</tr>
<tr>
<td width="202" align="right" valign="bottom"
class="borderleft">Adverse
Party
Name:</td>
<td width="5">&nbsp;</td>
LINE 197 <td width="189">&nbsp;<span
class="borderright"><%=(rsEligibility.Fields.Item("FNADV").Value)%></span><%
=(rsEligibility.Fields.Item("LNADV").Value)%></td>
Click to expand...

Output the query you are running using response.write to ensure that what
you think is being passed actually is being passed. Then run it directly
against the database to test it.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can someone tell me if this a real tracker? Or is it one designed to show you a different message at certain times, ie. acting like one? 0
Uncaught ReferenceError: item is not defined at HTMLButtonElement.onclick in the: <button onclick="item.inserir()">Inserir dados</button> 1
How to wrap <td> content . 16
Image shifts to the right when export the page to pdf 4
Nested Loop Insert Page Break 1
How can I calculate the last payment of the year to be the sum of all previous payments for that year and subtracting it from Research Costs value? 7
How to have two html audio players on one page? 0
Having trouble centering contents of td ? 3

Members online

Total: 49 (members: 2, guests: 47)
Robots: 449

Forum statistics

Threads
473,769
Messages
2,569,580
Members
45,055
Latest member
SlimSparkKetoACVReview

Latest Threads

Top