<%
dim name
name=Ucase(Request.Form("name"))
dim sym
sym="%"
%> <%if trim(name)<>"" then
sql1="select * from reg where country like '"&trim(name)&""&sym&"' "
rec.Open sql1,con ,3,3
if not rec.EOF then
If request.form("Page")="" then 'next prev
PageNo=1
Else
PageNo=request.form("Page")
End If
TotalRecs = rec.recordcount
rec.Pagesize= 15
TotalPages = cInt(rec.pagecount)
rec.absolutepage=PageNo
If TotalRecs=1 then
Response.Write ""
Response.write " There are 1 entry in 1 Page"
Response.Write ""
else
If TotalRecs <= 15 then
Response.Write ""
response.write "There are "
response.write TotalRecs & " entries in "
response.write TotalPages & " page "
Response.Write ""
else
Response.Write ""
response.write "There are "
response.write TotalRecs & " entries in "
response.write TotalPages & " pages "
response.write ""
End if
End if
dim rc
rc= rec.RecordCount
i=0%>
*- To view details click over there.
| <%=rc%> Alumni Found |
| Name |
Office Phone |
Mobile |
E-Mail Id |
<%
' while not rec.EOF
For x = 1 to 15 'next prev
If rec.eof then
Exit For
end if 'next prev
i=i+1
%>
| ">*<%= rec("lstname")%> <%= rec("mddname")%> <%= rec("fstname")%> |
<%= rec("entph1")%> |
<%= rec("entph2")%> |
"><% =rec("email")%> |
<%
rec.MoveNext()
'wend
next
If PageNo > 1 then 'next prev
response.write ""
Else
response.write " "
End If
If NOT rec.eof then
response.write ""
Else
response.write " "
End If 'next prev
%>
|
No Records Found <%end if
end if
%>
|
