PDA

Click to See Complete Forum and Search --> : Condition on ASP Page

nisarali23
06-25-2006, 06:58 AM
Hi all,

I have a asp page which hv 2 dropdownlist Bank names and city names.

Now when some one selects bank and city from combo and in database bank=city then respective details shd appear(which is happening) but if bank is not equal to city in database then error message"No Records found" shd appear. below is the code which i am used.

<%
dim con,rs
set con=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
con.open = "Provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("bank.mdb")

rs.Open "select * from details where City='" & Request.Form ("city") & "' and Bank_Name='" & Request.Form ("bank") & "'",con,1,2

%>
<html>
<head>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="750" border="0" cellspacing="2" cellpadding="6">
<tr bgcolor="#99CCFF">
<td width="92"><strong><font size="3" face="Arial, Helvetica, sans-serif">Bank
Name</font></strong></td>
<td width="77"><strong><font size="3" face="Arial, Helvetica, sans-serif">Location</font></strong></td>
<td width="185"><strong><font size="3" face="Arial, Helvetica, sans-serif">Address</font></strong></td>
<td width="112"><strong><font size="3" face="Arial, Helvetica, sans-serif">Onside/Offside</font></strong></td>
<td width="58"><strong><font size="3" face="Arial, Helvetica, sans-serif">City</font></strong></td>
<td width="55"><strong><font size="3" face="Arial, Helvetica, sans-serif">State</font></strong></td>
<td width="71"><strong><font size="3" face="Arial, Helvetica, sans-serif">PINCode</font></strong></td>
</tr>
<%
if not rs.EOF then
rs.MoveFirst
while not rs.EOF
%>
<tr bgcolor="#D1DDE9">
<td><font face="Arial, Helvetica, sans-serif" size="2">
<%response.Write rs.Fields("Bank_Name")%>
</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="2">
<%response.Write rs.Fields("Location")%>
</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="2">
<%response.Write rs.Fields("Address")%>
</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="2">
<%response.Write rs.Fields("On_off")%>
</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="2">
<%response.Write rs.Fields("City")%>
</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="2">
<%response.Write rs.Fields("State")%>
</font></td>
<td><font face="Arial, Helvetica, sans-serif" size="2">
<%response.Write rs.Fields("PINCode")%>
</font></td>
</tr>
<%
rs.MoveNext
wend
end if
%>
<tr>
<td height="40" colspan="3" align="center"><font size="1" face="Arial, Helvetica, sans-serif"><a href="#" onclick="self.close()">Close
Window</a></font></td>
<td height="40" align="center"><font size="1" face="Arial, Helvetica, sans-serif"><a href="#top">Top</a></font></td>
<td height="40" align="center"><font size="1" face="Arial, Helvetica, sans-serif">&nbsp;</font></td>
<td height="40" align="center"><font size="1" face="Arial, Helvetica, sans-serif">&nbsp;</font></td>
<td height="40" align="center"><font size="1" face="Arial, Helvetica, sans-serif">&nbsp;</font></td>
</tr>
</table>
</font>
</body>
</html>
lmf232s
06-25-2006, 06:02 PM
If Not rs.EOF then
'Get your data
Else
Response.write "No records found"
End If
nisarali23
06-26-2006, 12:05 AM
Thanks Imf.... can you please impliment your code on mine???