<%
session("connectionString") = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security " & _
"Info=False;Data Source=" & Server.MapPath(".") & "\SandAnalysis.mdb"
dim Conn, rsDistance, rsTemp,rsDistancecal,rsCityfrom,rscityTo
dim rsMajor , rsDist1 , rsDist2 , Dist1 , Dist2
Dim strFromCity , strToCity , strDistance ,str
set Conn = server.CreateObject("ADODB.Connection")
set rsDistance = server.CreateObject("ADODB.Recordset")
set rsDistancecal = server.CreateObject("ADODB.Recordset")
set rsCityfrom = server.CreateObject("ADODB.Recordset")
set rsCityto = server.CreateObject("ADODB.Recordset")
set rsTemp = server.CreateObject("ADODB.Recordset")
set rsDist1 = server.CreateObject("ADODB.Recordset")
set rsDist2 = server.CreateObject("ADODB.Recordset")
set rsMajor = server.CreateObject("ADODB.Recordset")
Conn.Open session("connectionString")
strSql= "select city_id, city_name from city order by city_name"
rsDistance.Open strSql, Conn
function toProperCase(strValue)
if len(strValue) > 1 then
for i = 1 to len(strValue)
if mid(strValue,i,1) = "(" then
bflag = true
End if
if i = 1 then
temp = temp & mid(strValue,i,1)
Else
if not bflag then
temp = temp & lcase(mid(strValue,i,1))
Else
temp = temp & mid(strValue,i,1)
End if
End if
Next
End if
toProperCase = temp
End function
%>
|
|
