<% '******************************************************************************* '* QuickNews Copyright 2003 XCENT - www.xcent.com * '* QuickNews is a trademark of XCENT * '* This notice may not be removed from this source code file * '******************************************************************************* sLoginName = "" & Trim(RequestValue("LoginName")) sPassword = "" & Trim(RequestValue("Password")) sCmd = UCase(Trim(RequestValue("CMD"))) DoPageHeader OpenDBConn Select Case sCmd Case "LOGIN" DoAdminLogin Case Else LoginForm End Select CloseDBConn DoPageFooter Sub LoginForm Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" & gsTitleOpen & GLS_admLoginTitle & gsTitleClose & "
" & gsFormTextOpen & GLS_admLogin & gsFormTextClose & "
" & gsFormTextOpen & GLS_admPassword & gsFormTextClose & "

" Response.Write "

" End Sub Sub DoAdminLogin sSQL = "Select admName, admPHash FROM tblQNAdmin where admName=" & SQLStr(sLoginName) sSQL = sSQL & " AND admPHash=" & SQLVal(PHash(sPassword)) 'response.write ssql Set rsLogin = gobjConnect.Execute(sSQL) If not rsLogin.EOF Then Session("LoggedOn") = "YES" Response.Cookies("QuickNews")("Login") = sLoginName Response.Write gsTitleOpen & GLS_admPermissionGranted & gsTitleClose & "
" Response.Write gsPlainTextOpen & GLS_AdmLoginMsg & gsPlainTextClose Else Response.Write gsPlainTextOpen & GLS_admInvalidLogin & gsPlainTextClose & "
" LoginForm End If rsLogin.close set rsLogin = nothing End Sub %>