Hello, my ASP page which is a query/search function works, but the query info doesn't display:
the two fields in the database are STUDENT_ID AND NAME or I can use another field NAME_SORT - I've tried both. What am I doing wrong?
<%
'Start processing form data if any
IF Request.QueryString("Proce
ss") = "1" THEN
'Reference the Session connection variable
Set cn = Session("cnStar")
'Create a recordset
Set RequestInfo = Server.CreateObject("ADODB
.Recordset
")
'Build a query string
querystr = "SELECT * FROM UISMaster"
wherestr = ""
statusstr = ""
IF (Request.Form("search") = "STUDENT_ID" and Request.Form("SID") <> "") THEN
wherestr = " WHERE STUDENT_ID LIKE '" & Request.Form("SID") &"%'"
ELSEIF (Request.Form("search") = "NAME_SORT" and Request.Form("NAMESORT") <> "") THEN
wherestr = " WHERE NAME_SORT LIKE '" & Request.Form("NAMESORT") &"%'"
ELSE
wherestr = " WHERE STUDENT_ID = '123456789'"
END IF
IF len(statusstr) >0 THEN
IF len(wherestr) >0 THEN
statusstr = " AND " & statusstr
ELSE
statusstr = " WHERE " & statusstr
END IF
END IF
orderstr = " ORDER BY NAME_SORT"
querystr = querystr & wherestr & statusstr & orderstr
'Set all the properties for the recordset
RequestInfo.ActiveConnecti
on = cn
RequestInfo.CursorType = adOpenKeyset
RequestInfo.LockType = adLockOptimistic
RequestInfo.Source = querystr
RequestInfo.Open
%>
<CENTER>
<H2 align="center">STAR</H2>
<p align="center">Student Tracking And Reporting </p>
<HR>
Click the link in the StudentID column to view more detail.
<HR>
<TABLE CELLPADDING=3 BORDER=0 COLSPAN=8>
<% 'Output the table headers
' Response.Write querystr
For i = 0 To 15
IF i=0 THEN
Response.Write "<TD CLASS=header>StudentID</TD
>"
ELSEIF (i=3 or i=4 or i=13 or i=14 or i=15) THEN
Response.Write "<TD CLASS=header>" & RequestInfo.Fields(i).Name
& "</TD>"
END IF
NEXT
'Loop through the recordset to output the table values
Do While Not RequestInfo.EOF
Response.Write "<TR>"
For i = 0 to 15 'Output the field values for the student
IF i = 0 THEN
Response.Write "<TD ALIGN=center>"
Response.Write "<A HREF=""studentprofile.asp?
SID="
Response.Write RequestInfo.Fields(i).Valu
e
Response.Write """>"
Response.Write RequestInfo.Fields(i).Valu
e
Response.Write "</A></TD>"
ELSEIF (i= 3 or i=4 or i = 13 or i = 14 or i = 15) THEN
Response.Write "<TD>"
Response.Write RequestInfo.Fields(i).Valu
e
Response.Write "</TD>"
ELSE
END IF
NEXT
Response.Write "</TR>"
RequestInfo.MoveNext
LOOP
%>
</TABLE>
<HR>
</CENTER>
<BR>
Return to the <a href="MainMenu.asp">Main Menu</a>
</BODY>
</HTML>
<% 'Close the recordset after use
RequestInfo.Close
ELSE 'Output a form so that the user can search
%>
<CENTER>
<H2>Find a student</H2>
<HR>
To find a student,<BR>
fill out the following form and then press the button at the bottom of the page.
</CENTER>
<FORM NAME="SearchForm" ACTION="findstudent2.asp?P
rocess=1" METHOD=POST>
<TABLE ALIGN=CENTER CLASS=formtable CELLPADDING=2>
<TR>
<TD>Name (Last, First):</TD>
<TD><INPUT TYPE="text" NAME="NAME_SORT" SIZE=40 MAXLENGTH=40></TD>
</TR>
<TR>
<TD>Student ID:</TD>
<TD><INPUT TYPE="text" NAME="SID" SIZE=9 MAXLENGTH=9></TD>
</TR>
<TR>
<TD>Search:</TD>
<TD>
<INPUT type="radio" name="search" value="Namesort" checked>Name
<INPUT type="radio" name="search" value="SID">SID
</TD>
</TR>
<TR>
<TD></TD>
<TD><INPUT TYPE="submit" NAME="SearchButton" VALUE="Search">
<INPUT TYPE="reset" NAME="reset" VALUE="Reset"></TD>
</TR>
</TABLE>
</FORM>
<BR><BR><HR>
Return to the <a href="MainMenu.asp">Main Menu
</BODY>
</HTML>
</a>
<% END IF %>
Start Free Trial