<%
Dim dbConn
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\zse\fpdb\wash2.mdb"
dbConn.Open
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Dim sql
sql = "SELECT Tail,Type,CruiseAlt,RouteText,ID,Pilot,assignedtime FROM MainOut WHERE ID = "
sql = sql & Request.QueryString("PDC")
rs.Open sql, dbConn, 1, 3
Response.Write "
"
If Not rs.EOF And Not rs.BOF Then
strModTime = DateAdd("h", -4, rs("assignedtime")) 'Time Conversion Routine - Pick up assigned time and subtract 4 hours
strModTimeH = DatePart("h",strModTime) 'Extract Hours
strModTimeN = DatePart("n",strModTime) 'Extract Minutes
strUTCTime = strModTimeH & strModTimeN 'And put them together in their own variable
strRedir = "http://www.vatsim.net/fp/index.php?"
strRedir = strRedir & "1=I&2=" & rs("Tail") & "&3=" & rs("Type") & "&5=KIAD&6="
strRedir = strRedir & strUTCTime
strRedir = strRedir & "&7=" & rs("CruiseAlt")
strRedir = strRedir & "&8=" & rs("RouteText") & "&9=KSEA&11=WASHINGTON+SQUARED+EVENT+PDC+" & rs("ID") & "&14=" & rs("Pilot")
Response.Write ""
Response.Write "You are being redirected to VATSIM's Flight Planning System
"
Response.Write "" & "Click here if your browser does not redirect you." & ""
End If
%>