|
Quick Services
[ Ambulance]
<%
Dim CurrentPage,RowNumber, ctr
CurrentPage = Trim(Request("CurrentPage"))
if CurrentPage = "" Then CurrentPage = 1
Set Con = Server.CreateObject("ADODB.Connection")
strDBPath = Server.MapPath("dbsmc.mdb")
con.Open"Provider=sqloledb;Data Source=202.71.130.7;Initial Catalog=jaisolapur;User Id=solapur4u;Password=solapurr;"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Cursortype = adOpenStatic
RS.PageSize = 5
Selection = Replace(selection, "'","")
Mysql = "select * from qs_ambulance"
RS.Open mysql, Con
if not(rs.EOF) then
%>
| Sr No |
Ambulance |
Address |
Phone |
<% While not RS.EOF and RowNumber
| <%=rs("id")%> |
<%=rs("eName")%> |
<%=rs("eAddress")%> |
<%=rs("Phone")%> |
<%
RowNumber = RowNumber + 1
RS.MoveNext
Wend
%>
<%
else
%>
So, Far there are no Records.
<%end if%>
|
|