|
archangelwes -> ++ ASP search Results Page (3/9/2006 16:06:24)
|
Forgive me for being a newbie on ASP.. I'm a C++ developer.. I have a problem with my search results page... the view in frontpage looks fine but when the asp site is ran it puts all the code on display. If someone could help me it would be greatly appreciated.....
The Full Code is as follows
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="Company" content="Kalptaru Infotech Ltd. [www.a2zhelp.com]">
<title>ML</title>
<style>
<!--
td { font-family: Tahoma; font-size: 8pt; background-color: #E6F2FF;
border-style: solid; border-width: 1 }
th { font-family: Tahoma; font-size: 8pt; font-weight: bold; background-color:
#E6E6E6; border: 1 outset #FF9900 }
input { font-family: Tahoma; font-size: 8pt; border: 1 inset #E6E6E6 }
table { }
-->
</style>
</head>
<body>
<table border="0" cellpadding="2" width="100%">
<tr>
<td colspan="3" width="100%">Search Results</td>
</tr>
<tr>
<td width="10%"></td>
<td width="80%">
<%const DATABASE_NAME="MarriageLicenesdatabase.mdb"
dim Con
set Con=server.createobject("ADODB.Connection")
Con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath(DATABASE_NAME) & ";User Id=Admin;Password="
%>
<%
Dim sort_id 'The variable to sort data
Dim intPage 'The variable to hold current page number
Dim sSQL 'The variable to hold the SQL Statement
Dim intPageCount 'The var to hold total page count
Dim intRecordCount 'The var to hold total records count
Dim intFinish 'The var to hold the last page count
Dim intStart 'The var to hold the first page count
Dim intRecord
Dim sort_type
Dim new_sort_type
'-------Getting Info of page Number-------------
sort_id=Request("sortid")
If Request.QueryString("NAV") = "" Then
intPage = 1
Else
intPage = Request.QueryString("NAV")
End If
sort_type = Request("sorttype")
dim sSortSymbol
dim sTempSymbol
dim current_sort
if ucase(sort_type)="DESC" then
sort_type="DESC"
new_sort_type="ASC"
sTempSymbol="[<FONT FACE=wingdings>ê</font>]"
else
sort_type="ASC"
new_sort_type="DESC"
sTempSymbol="[<FONT FACE=wingdings>é</font>]"
end if
dim sWhereCondition %>
<%'-------Getting IdNumber
dim IdNumber
IdNumber=Request("IdNumber")%>
<%if trim(IdNumber) <>"" then
sWhereCondition=sWhereCondition & " AND [IdNumber] like '%" & IdNumber & "%'"
end if%>
<%'-------Getting GroomLast
dim GroomLast
GroomLast=Request("GroomLast")%>
<%if trim(GroomLast) <>"" then
sWhereCondition=sWhereCondition & " AND [GroomLast] like '%" & GroomLast & "%'"
end if%>
<%'-------Getting GroomFirst
dim GroomFirst
GroomFirst=Request("GroomFirst")%>
<%if trim(GroomFirst) <>"" then
sWhereCondition=sWhereCondition & " AND [GroomFirst] like '%" & GroomFirst & "%'"
end if%>
<%'-------Getting GroomAge
dim GroomAge
GroomAge=Request("GroomAge")%>
<%if trim(GroomAge) <>"" then
sWhereCondition=sWhereCondition & " AND [GroomAge] like '%" & GroomAge & "%'"
end if%>
<%'-------Getting GroomStreetAddress
dim GroomStreetAddress
GroomStreetAddress=Request("GroomStreetAddress")%>
<%if trim(GroomStreetAddress) <>"" then
sWhereCondition=sWhereCondition & " AND [GroomStreetAddress] like '%" & GroomStreetAddress & "%'"
end if%>
<%'-------Getting GroomCity
dim GroomCity
GroomCity=Request("GroomCity")%>
<%if trim(GroomCity) <>"" then
sWhereCondition=sWhereCondition & " AND [GroomCity] like '%" & GroomCity & "%'"
end if%>
<%'-------Getting BrideLast
dim BrideLast
BrideLast=Request("BrideLast")%>
<%if trim(BrideLast) <>"" then
sWhereCondition=sWhereCondition & " AND [BrideLast] like '%" & BrideLast & "%'"
end if%>
<%'-------Getting BrideFirst
dim BrideFirst
BrideFirst=Request("BrideFirst")%>
<%if trim(BrideFirst) <>"" then
sWhereCondition=sWhereCondition & " AND [BrideFirst] like '%" & BrideFirst & "%'"
end if%>
<%'-------Getting BrideAge
dim BrideAge
BrideAge=Request("BrideAge")%>
<%if trim(BrideAge) <>"" then
sWhereCondition=sWhereCondition & " AND [BrideAge] like '%" & BrideAge & "%'"
end if%>
<%'-------Getting BrideStreetAddress
dim BrideStreetAddress
BrideStreetAddress=Request("BrideStreetAddress")%>
<%if trim(BrideStreetAddress) <>"" then
sWhereCondition=sWhereCondition & " AND [BrideStreetAddress] like '%" & BrideStreetAddress & "%'"
end if%>
<%'-------Getting BrideCity
dim BrideCity
BrideCity=Request("BrideCity")%>
<%if trim(BrideCity) <>"" then
sWhereCondition=sWhereCondition & " AND [BrideCity] like '%" & BrideCity & "%'"
end if%>
<table border=0><tr>
<%if sWhereCondition="" then
sSQL="SELECT * FROM [tblMarriageLicenses]"
else
sWhereCondition = Right(sWhereCondition, Len(sWhereCondition) - 4)
sSQL="SELECT * FROM [tblMarriageLicenses]" & " WHERE " & sWhereCondition
end if
if sort_id<>"" then
sSQL=sSQL & " ORDER BY [" & sort_id & "] " & sort_type
end if
%>
</tr>
<%dim objRst 'The Recordset object
Set objRst = Server.CreateObject("ADODB.Recordset")
objRst.CursorLocation = 3 'adUseClient
objRst.CursorType = 3 'adOpenStatic
objRst.ActiveConnection = con
' Open the recordset.
objRst.Open sSql
'Now Prepend the sData String
objRst.PageSize = 10
' The cachesize property sets the number of records that will be cached
' locally in memory.
objRst.CacheSize = objRst.PageSize
intPageCount = objRst.PageCount
intRecordCount = objRst.RecordCount
If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount
If CInt(intPage) <= 0 Then intPage = 1
' Make sure that the recordset is not empty. If it is not, then set the
' AbsolutePage property and populate the intStart and the intFinish variables.
If intRecordCount > 0 Then
objRst.AbsolutePage = intPage
intStart = objRst.AbsolutePosition
If CInt(intPage) = CInt(intPageCount) Then
intFinish = intRecordCount
Else
intFinish = intStart + (objRst.PageSize - 1)
End If
End If%>
<tr>
<td colspan=100 align=center>
<%=intRecordCount%> Data Available
<%If intRecordCount > 0 Then
' Display the record that you are starting on and the record
' that you are finishing on for this page by writing out the
' values in the intStart and the intFinish variables.
%>
<br>You are now viewing records
<%=intStart%> through <%=intFinish%>.
</td>
</tr>
<%
if not sort_id="IdNumber" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=IdNumber&sorttype=<%=current_sort%>&NAV=<%=intPage %>">IdNumber <%=sSortSymbol%></a></th>
<%
if not sort_id="GroomLast" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=GroomLast&sorttype=<%=current_sort%>&NAV=<%=intPage %>">GroomLast <%=sSortSymbol%></a></th>
<%
if not sort_id="GroomFirst" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=GroomFirst&sorttype=<%=current_sort%>&NAV=<%=intPage %>">GroomFirst <%=sSortSymbol%></a></th>
<%
if not sort_id="GroomAge" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=GroomAge&sorttype=<%=current_sort%>&NAV=<%=intPage %>">GroomAge <%=sSortSymbol%></a></th>
<%
if not sort_id="GroomStreetAddress" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=GroomStreetAddress&sorttype=<%=current_sort%>&NAV=<%=intPage %>">GroomStreetAddress <%=sSortSymbol%></a></th>
<%
if not sort_id="GroomCity" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=GroomCity&sorttype=<%=current_sort%>&NAV=<%=intPage %>">GroomCity <%=sSortSymbol%></a></th>
<%
if not sort_id="BrideLast" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=BrideLast&sorttype=<%=current_sort%>&NAV=<%=intPage %>">BrideLast <%=sSortSymbol%></a></th>
<%
if not sort_id="BrideFirst" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=BrideFirst&sorttype=<%=current_sort%>&NAV=<%=intPage %>">BrideFirst <%=sSortSymbol%></a></th>
<%
if not sort_id="BrideAge" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=BrideAge&sorttype=<%=current_sort%>&NAV=<%=intPage %>">BrideAge <%=sSortSymbol%></a></th>
<%
if not sort_id="BrideStreetAddress" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=BrideStreetAddress&sorttype=<%=current_sort%>&NAV=<%=intPage %>">BrideStreetAddress <%=sSortSymbol%></a></th>
<%
if not sort_id="BrideCity" then
sSortSymbol=""
current_sort= "ASC"
else
sSortSymbol= sTempSymbol
current_sort= new_sort_type
End If
%>
<th nowrap><a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sortid=BrideCity&sorttype=<%=current_sort%>&NAV=<%=intPage %>">BrideCity <%=sSortSymbol%></a></th>
<th>Details</th>
<tr>
<%
dim i
dim iGroupId
%>
</tr>
<%
' Iterate through the recordset until we reach the end of the page
' or the last record in the recordset.
'need to write the following info for deleting the stuff
For intRecord = 1 to objRst.PageSize%>
<tr>
<td><%=objRst("IdNumber").Value%></td>
<td><%=objRst("GroomLast").Value%></td>
<td><%=objRst("GroomFirst").Value%></td>
<td><%=objRst("GroomAge").Value%></td>
<td><%=objRst("GroomStreetAddress").Value%></td>
<td><%=objRst("GroomCity").Value%></td>
<td><%=objRst("BrideLast").Value%></td>
<td><%=objRst("BrideFirst").Value%></td>
<td><%=objRst("BrideAge").Value%></td>
<td><%=objRst("BrideStreetAddress").Value%></td>
<td><%=objRst("BrideCity").Value%></td>
<TD><a href="ml_results_detail.asp?IdNumber=<%=objRst("IdNumber")%>&mVarTable=[tblMarriageLicenses]"> Detail </a></TD>
</tr>
<%objRst.MoveNext
If objRst.EOF Then Exit for
Next
%>
<%End IF%> <%
' Check to see if the current page is less than the last page
' in the recordset. If it is, then add a "Next" link.
%>
<tr align=center>
<td align=center colspan=30>
<%
if CInt(intPage)>1 then
%>
<a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sorttype=<%=sort_type%>&NAV=<%=intPage - 1%>&sortid=<%=sort_id%>">
<b><< Prev</b></a>
<%
end if
dim iCounter
for iCounter=1 to cint(intPageCount)
if not cInt(intPage)= iCounter then %>
<a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sorttype=<%=sort_type%>&NAV=<%=iCounter%>&sortid=<%=sort_id%>">
<b> <%=iCounter%> </b></a>
<% else%>
<b> <%=iCounter%> </b>
<% end if
next
If cInt(intPage) < cInt(intPageCount) Then %>
<a href="<%=Request.ServerVariables("PATH_INFO")%>?IdNumber=<%=IdNumber%>&GroomLast=<%=GroomLast%>&GroomFirst=<%=GroomFirst%>&GroomAge=<%=GroomAge%>&GroomStreetAddress=<%=GroomStreetAddress%>&GroomCity=<%=GroomCity%>&BrideLast=<%=BrideLast%>&BrideFirst=<%=BrideFirst%>&BrideAge=<%=BrideAge%>&BrideStreetAddress=<%=BrideStreetAddress%>&BrideCity=<%=BrideCity%>&sorttype=<%=sort_type%>&NAV=<%=intPage + 1%>&sortid=<%=sort_id%>">
<b>Next >></b></a>
<%End If%>
</td>
</tr>
</table></td>
<td width="10%"></td>
</tr>
<tr>
<td colspan="3" width="100%" bgcolor="#FF9900">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td bgcolor="#E6E6E6">
<p align="center"><font face="Tahoma" size="1" color="#0000FF"><br>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
|
|
|
|
