Disappearing Column Data

dalezjc · November 14th, 2006, 07:19 PM

I have what appears to be very strange problem (and the fact that I'm an ASP newbie probably has something to do with it :-) ). My ASP is pulling query data just fine, except when I try and display too many columns. If I keep the number of columns to 4, then then I get data. If I add a fifth column, then it doesn't show (even though it might have shown in 4-columns). Here's my code:

<%
    Option Explicit
    Dim l_name
    Dim prob
    Dim rsCustSurvey
    Dim raction_summary
    Dim Conn
    l_name = Request.QueryString("l_name")
    prob = Request.QueryString("prob")
' response.write(l_name)

    set Conn=Server.CreateObject("ADODB.Connection")
    set rsCustSurvey = server.CreateObject("ADODB.Recordset")
    set raction_summary =server.CreateObject("ADODB.Recordset")

    Conn.open "Driver={SQL Server}; Server=serverL01;Database=ARSystem;UID=u;p;"

    set rsCustSurvey = conn.Execute ("Select ProblemDescriptionTrunc, Action_Summary, ProblemItem, Problem_Solution002, " _
        & " Problem_Description002, RootCause, LastModifiedBy, dbo.TTS_Main.AssignedGroup, dbo.TTS_Main.Last_Name, dbo.TTS_Main.First_Name, " _
        & " dbo.TTS_Main.Tracker, dbo.TTS_Main.Status, dbo.TTS_Main.AssignedGroup, AssignedTechnician, ModificationHistory "_
        & " From tts_main " _
    & " Where ProblemDescriptionTrunc LIKE '%" & prob & "%' " _
    & " And Last_Name LIKE '%" & l_name & "%' ")

    if rsCustSurvey.EOF then 'traps for IF recordset is empty THEN:
        Response.Write "There is no data"
        Response.End
    end if

%>

<table border="1">

    <tr>
        <td align="center"><b>Problem Description</td>
        <td align="center"><b>Action Summary</td>
        <td align="center"><b>Root Cause</td>
        <td align="center"><b>Last Name</td>
        <td align="center"><b>Problem Solution</td>

    </tr>

        <%do while not rsCustSurvey.EOF%></do>
    <tr>

        <td>
            <%response.write rsCustSurvey("ProblemDescriptionTrunc")%>
        </td>

        <td>
            <%response.write rsCustSurvey("Problem_Solution002")%>
        </td>

        <td>
            <%response.write rsCustSurvey("RootCause")%>
        </td>

        <td>
            <%response.write rsCustSurvey("Last_Name")%>
        </td>

        <td>
            <%response.write rsCustSurvey("Action_Summary")%>
        </td>

    </tr>
        <%rsCustSurvey.MoveNext%>
        <%loop%>

</table>

<%
    set rsCustSurvey = nothing
    set conn = nothing
%>

See anything out of whack?

thanks!

Dale

seananderson · November 21st, 2006, 09:42 AM

Are you sure that the Action_Summary column of the database does contain data?

You have an unwanted </do> in the code.

Could you try:

<%
    Option Explicit

    Dim l_name
    Dim prob
    Dim rsCustSurvey
    Dim raction_summary
    Dim Conn

    l_name = Request.QueryString("l_name")

    prob = Request.QueryString("prob")

    Set Conn=Server.CreateObject("ADODB.Connection")
    Set rsCustSurvey = server.CreateObject("ADODB.Recordset")
    Set raction_summary = server.CreateObject("ADODB.Recordset")

    Conn.open "Driver={SQL Server}; Server=serverL01;Database=ARSystem;UID=u;p;"

    set rsCustSurvey = conn.Execute ("Select ProblemDescriptionTrunc, Action_Summary, ProblemItem, Problem_Solution002, " _
        & " Problem_Description002, RootCause, LastModifiedBy, dbo.TTS_Main.AssignedGroup, dbo.TTS_Main.Last_Name, dbo.TTS_Main.First_Name, " _
        & " dbo.TTS_Main.Tracker, dbo.TTS_Main.Status, dbo.TTS_Main.AssignedGroup, AssignedTechnician, ModificationHistory "_
        & " From tts_main " _
    & " Where ProblemDescriptionTrunc LIKE '%" & prob & "%' " _
    & " And Last_Name LIKE '%" & l_name & "%' ")

    if rsCustSurvey.EOF then 'traps for IF recordset is empty THEN:
        Response.Write "There is no data"
        Response.End
    else
    %>
        <table border="1">
            <tr>
                <td align="center"><b>Problem Description</td>
                <td align="center"><b>Action Summary</td>
                <td align="center"><b>Root Cause</td>
                <td align="center"><b>Last Name</td>
                <td align="center"><b>Problem Solution</td>
            </tr>
        <%
            while not rsCustSurvey.EOF

                response.write "<tr>"
                response.write "<td>1" & rsCustSurvey("ProblemDescriptionTrunc") & "</td>"
                response.write "<td>2" & rsCustSurvey("Problem_Solution002") & "</td>"
                response.write "<td>3" & rsCustSurvey("RootCause") & "</td>"
                response.write "<td>4" & rsCustSurvey("Last_Name") & "</td>"
                response.write "<td>5" & rsCustSurvey("Action_Summary") & "</td>"
                response.write "</tr>"

                rsCustSurvey.MoveNext

            wend
        %>
        </table>
    <%
    end if
    set rsCustSurvey = nothing
    set conn = nothing
    %>

Regards,

Sean Anderson