|
If the address you are looking for has any errors or your manav kendra
is not listed here please write to us at mail@manavkendra.net
<%
On Error Resume Next
Dim Conn, rsRecords, ctr, state, recordCount
Dim Date, Place, Sat_Morning, Sat_Evening, Init
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("rohitpm")
state= Request.QueryString
Set rsRecords = Conn.Execute("Select * from Address where state='"& state &"'")
Response.Write("
")
Response.Write("")
Response.Write("| Organization | ")
Response.Write("Address | ")
Response.Write("Tehsil | ")
Response.Write("District | ")
Response.Write("State | ")
Response.Write("Telephone | ")
Response.Write(" ")
recordCount = 0
WHILE rsRecords.EOF = FALSE
Response.Write("")
Response.Write("| "&rsRecords(0)&" | ")
Response.Write(""&rsRecords(1)&" | ")
Response.Write(""&rsRecords(2)&" | ")
Response.Write(""&rsRecords(3)&" | ")
Response.Write(""&rsRecords(4)&" | ")
Response.Write(""&rsRecords(5)&" | ")
Response.Write(" ")
recordcount=recordCount+1
rsRecords.MoveNext
WEND
Response.Write(" ")
if recordCount = 0 then
Response.Write("")
End If
rsRecords.Close
Conn.Close
%>
|