<%@language="vbscript"%>
<% option explicit %>
<%
Dim con,connstr,conns
set con = server.createobject("Adodb.connection")
connstr = "Provider=MSDataShape;Data Provider=SQLOLEDB.1;Persist Security Info=True;User ID=tvsmotorin;Password=T-vs2KPlas8;Initial Catalog=tvsmotorin;Data Source=192.168.100.117"
con.Open connstr
conns = con
%>
<%
Dim rscity,sqlcity,i,j
set rscity=server.createobject("adodb.recordset")
sqlcity="select city_id,city_name from city where scooty_institute='T' order by city_name"
rscity.open sqlcity,conns,3,3
%>
Scooty Gals - Scooty Institute
