<%@ LANGUAGE="VBSCRIPT" @ ENABLESESSIONSTATE = False %> <% Function WrapAround(textfield) dim strCount, strLineSize,LineCount, LineInitial, LineTerminator, strTimes strCount = len(textfield) intPositionToWrap = 55 LineCount = 20 LineInitial = 1 LineTerminator = "
" strValue = "" do while ( len(textfield) > intPositionToWrap ) CharOneHundredth = mid(textfield, intPositionToWrap, 1) If CharOneHundredth <> " " Then strTempText = Left(textfield, intPositionToWrap) If InStr(strTempText, " ") <= 0 Then 'one long word strValue = strValue & left (textfield, intPositionToWrap) & vbCrLf intPos = intPositionToWrap Else 'Wrap on Next " " intPos = InStrRev(strTempText," ") strValue = strValue & Left(textfield, intPos) & vbCrLf End If Else 'Wrap it right there strValue = strValue & left (textfield, intPositionToWrap) & vbCrLf intPos = intPositionToWrap End If textfield = right(textfield, len(textfield) - intPos) loop strValue = replace(strValue,vbCrLf,"
") WrapAround = strValue End Function Dim EditorImg, AllSubmissionImg Dim strType 'Dim gradename strType = FormatTextHTML(request.QueryString("Type")) If strType = "" Then strType = "Sch" End If If strType = "Sch" then EditorImg = "img/all_submissions_states_1.gif" AllSubmissionImg = "images/all_submissions_states_2.gif" Else EditorImg = "img/editors-picks_4.gif" AllSubmissionImg = "images/editors-picks_5.gif" End IF blnEmptyRs = False ' True: Database Query Returned empty recordset intIndex = FormatTextHTML(request.QueryString("Index")) If intIndex <> "" Then intIndex = CInt(intIndex) End If intID = FormatTextHTML(request.QueryString("ID")) If intID <> "" Then intID = CInt(intID) Else intID = 0 End If 'strType = FormatTextHTML(request.QueryString("Type")) 'If strType = "" Then ' strType = "Sch" 'End If 'Adding code Dim stravar_Reports_Sch_aa stravar_Reports_Sch_aa = FormatTextHTML(request.QueryString("avar_Reports_Sch_aa")) stravar_Reports_Pick_aa= FormatTextHTML(request.QueryString("avar_Reports_Pick_aa")) 'Ading Ended 'If IsEmpty(Session("avar_Reports_Sch_aa")) Then 'Sanjay If IsEmpty(stravar_Reports_Sch_aa) Then Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Age, Firstname, LastInitial, Q1, Q2, Q3, State, ReportID FROM " & table_name & " WHERE ReportID = " & intID 'rs.Open strSQL, Application("DBConn"), 3, 3 rs.Open strSQL, CONNECTION_STRING, 3, 3 If NOT (rs.EOF AND rs.BOF) Then 'gradename = rs("Grade") avarReports = rs.GetRows() Else blnEmptyRs = True End If rs.Close Set rs = Nothing intIndex = 0 Else If strType = "Sch" Then 'avarReports = Session("avar_Reports_Sch_aa") 'Sanjay avarReports = stravar_Reports_Sch_aa Else 'avarReports = Session("avar_Reports_Pick_aa") 'Sanjay avarReports = stravar_Reports_Pick_aa End If End If 'capture referring page to send people back On Error Resume Next strRefname = Request.ServerVariables("HTTP_REFERER") strnameParts = Split(strRefname,"/") strRefname = strnameParts(UBound(strnameParts)) If err.Number > 0 then strRefname = "index.htm" %> <% htmlTitle = avarReports(3,intIndex) & ", by " & avarReports(1,intIndex) If avarReports(2,intIndex) <> "" Then htmlTitle = htmlTitle & " " & avarReports(2,intIndex) & "." End If If Trim(avarReports(0,intIndex)) <> 0 then htmlTitle = htmlTitle & ", Age " & Trim(avarReports(0,intIndex)) End If htmlTitle = htmlTitle & ", " & avarReports(6,intIndex) %> The Earhart Gazette: <%= htmlTitle %> <% doMenu %>


Write a News Story
Meet a Pioneer Pilot
Timeline



Amelia Earhart Home

<% = "Back to Story List " & "" %>

<% = avarReports(3,intIndex) %>
By: <% = avarReports(1,intIndex) %> <% = avarReports(2,intIndex) %>.
<%=avarReports(6,intIndex)%>, Age <% = Trim(avarReports(0,intIndex))%>


<% = month(avarReports(4,intIndex)) & "/" & day(avarReports(4,intIndex)) & "/" & year(avarReports(4,intIndex)) %>

<% = avarReports(5,intIndex)%>


<% = "Back to Story List " & "" %>

 

<% doFooter %>