%@ 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
%>
|
|
Amelia
Earhart Home
|
|
<% = 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)%>
|
|
|
|
|
|
<%
doFooter
%>