<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% If IsObject(Session("sorties_conn")) Then Set conn = Session("sorties_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "sorties","","" Set Session("sorties_conn") = conn End If %> <% sql = "SELECT sorties.msnkey, sorties.date, sorties.year, sorties.month, sorties.day, sorties.[time up], sorties.[time down], sorties.target, sorties.[ac id], sorties.pilot, sorties.[2nd pilot], sorties.navigator, sorties.[bomb aimer], sorties.[W/AG/OP], sorties.RG, sorties.[time up], sorties.[time down], sorties.status, sorties.dispatched, sorties.er, sorties.[bombed primary], sorties.[bombed alternate], sorties.[failed to bomb tgt], sorties.[failed to return], sorties.[Time attacked primary], sorties.[Alt attacked primary], sorties.[bomb load], sorties.[int debrief], sorties.[cbt report], sorties.reference FROM sorties WHERE (((sorties.year)='1943')) " If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data) End If sql = sql & " ORDER BY sorties.date, sorties.year, sorties.month, sorties.day " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>

sorties by date

msnkey	date	year	month	day	Expr1005	Expr1006	target	ac id	pilot	2nd pilot	navigator	bomb aimer	W/AG/OP	RG	time up	time down	status	dispatched	er	bombed primary	bombed alternate	failed to bomb tgt	failed to return	Time attacked primary	Alt attacked primary	bomb load	int debrief	cbt report	reference
<%=Server.HTMLEncode(rs.Fields("msnkey").Value)%>	<%=Server.HTMLEncode(rs.Fields("date").Value)%>	<%=Server.HTMLEncode(rs.Fields("year").Value)%>	<%=Server.HTMLEncode(rs.Fields("month").Value)%>	<%=Server.HTMLEncode(rs.Fields("day").Value)%>	<%=Server.HTMLEncode(rs.Fields("Expr1005").Value)%>	<%=Server.HTMLEncode(rs.Fields("Expr1006").Value)%>	<%=Server.HTMLEncode(rs.Fields("target").Value)%>	<%=Server.HTMLEncode(rs.Fields("ac id").Value)%>	<%=Server.HTMLEncode(rs.Fields("pilot").Value)%>	<%=Server.HTMLEncode(rs.Fields("2nd pilot").Value)%>	<%=Server.HTMLEncode(rs.Fields("navigator").Value)%>	<%=Server.HTMLEncode(rs.Fields("bomb aimer").Value)%>	<%=Server.HTMLEncode(rs.Fields("W/AG/OP").Value)%>	<%=Server.HTMLEncode(rs.Fields("RG").Value)%>	<%=Server.HTMLEncode(rs.Fields("time up").Value)%>	<%=Server.HTMLEncode(rs.Fields("time down").Value)%>	<%=Server.HTMLEncode(rs.Fields("status").Value)%>	<%=Server.HTMLEncode(rs.Fields("dispatched").Value)%>	<%=Server.HTMLEncode(rs.Fields("er").Value)%>	<%=Server.HTMLEncode(rs.Fields("bombed primary").Value)%>	<%=Server.HTMLEncode(rs.Fields("bombed alternate").Value)%>	<%=Server.HTMLEncode(rs.Fields("failed to bomb tgt").Value)%>	<%=Server.HTMLEncode(rs.Fields("failed to return").Value)%>	<%=Server.HTMLEncode(rs.Fields("Time attacked primary").Value)%>	<%=Server.HTMLEncode(rs.Fields("Alt attacked primary").Value)%>	<%=Server.HTMLEncode(rs.Fields("bomb load").Value)%>	<%=Server.HTMLEncode(rs.Fields("int debrief").Value)%>	<%=Server.HTMLEncode(rs.Fields("cbt report").Value)%>	<%=Server.HTMLEncode(rs.Fields("reference").Value)%>