<%
'*******************************************************************************
'* QuickNews Copyright 2003 XCENT - www.xcent.com *
'* QuickNews is a trademark of XCENT *
'* This notice may not be removed from this source code file *
'*******************************************************************************
sCurrentVersion = "2-0-0"
sEdition = "LE"
OpenDBConn
DoPageHeader
Response.Write gsTitleOpen & GLS_AdmCheckVersion & gsTitleClose & "
"
TableHead
Response.Write "| " & gsPlainTextOpen & GLS_AdmChkVerAppVer & Replace(sCurrentVersion, "-", ".") & gsPlainTextClose & " |
"
Response.Write "| " & gsPlainTextOpen & GLS_AdmChkVerAppEd & sEdition & gsPlainTextClose & " |
"
Response.Write "" & gsPlainTextOpen & GLS_AdmChkVerAppStat & "![]() " & gsPlainTextClose & " |
"
sSQL = "SELECT masValue FROM tblQNMaster WHERE masParameter = 'DBVERSION'"
Set rs = gobjConnect.Execute(sSQL)
If Not rs.Eof Then
Response.Write "| " & gsPlainTextOpen & GLS_AdmChkVerAppDB & rs("masValue") & gsPlainTextClose & " |
"
Else
Response.Write "| " & gsPlainTextOpen & GLS_AdmChkVerAppDB & gsAdmChkVerAppDBErr & gsPlainTextClose & " |
"
End If
rs.Close
Set rs = Nothing
Response.Write "| |
"
Response.Write "| " & gsPlainTextOpen & "For information on obtaining and applying an update, refer to the following FAQ article: Check Version Shows Update Available." & gsPlainTextClose & " |
"
TableFoot
DoPageFooter
CloseDBConn
Sub TableHead
Response.Write ""
Response.Write ""
Response.Write ""
Response.Write "| "
End Sub
Sub TableFoot
Response.Write " | "
Response.Write " "
Response.Write " |
"
Response.Write "
"
End Sub
%>