ASP coding errors

Discussion in 'ASP General' started by Gale Coleman - LSND, Nov 4, 2006.

  1. 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 ""
    Mail.AddBCC ""
    Mail.AddBCC ""
    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>
    Gale Coleman - LSND, Nov 4, 2006
    #1
    1. Advertising

  2. Gale Coleman - LSND

    Mike Brind Guest

    "Gale Coleman - LSND" <> wrote in message
    news:eVhhdF8$...
    > 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 ""
    > Mail.AddBCC ""
    > Mail.AddBCC ""
    > 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>
    >


    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.

    --
    Mike Brind
    Mike Brind, Nov 4, 2006
    #2
    1. Advertising

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

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Mark Goldin

    Errors, errors, errors

    Mark Goldin, Jan 17, 2004, in forum: ASP .Net
    Replies:
    2
    Views:
    938
    Mark Goldin
    Jan 17, 2004
  2. SenthilVel
    Replies:
    0
    Views:
    936
    SenthilVel
    Jun 7, 2006
  3. calmar
    Replies:
    11
    Views:
    777
    calmar
    Feb 21, 2006
  4. asdf
    Replies:
    1
    Views:
    311
    Mike Wahler
    Dec 3, 2006
  5. asdf
    Replies:
    1
    Views:
    290
    Kai-Uwe Bux
    Dec 3, 2006
Loading...

Share This Page