<%
'*******************************************************************************
'* QuickNews Copyright 2003 XCENT - www.xcent.com *
'* QuickNews is a trademark of XCENT *
'* This notice may not be removed from this source code file *
'*******************************************************************************
sCmd = RequestValue("CMD")
lArticleID = FVal(RequestValue("ARTICLEID"))
sArticleName = RequestValue("ARTICLENAME")
sArticleAuthor = RequestValue("ARTICLEAUTHOR")
sArticleEmail = RequestValue("ARTICLEEMAIL")
sArticleLink = RequestValue("ARTICLELINK")
sArticleImage = RequestValue("ARTICLEIMAGE")
vArticleActive = FDate(RequestValue("ARTICLEACTIVE"))
'If Not IsDate(vArticleActive) Then
'vArticleActive = Now
'End If
vArticleExpires = FDate(RequestValue("ARTICLEEXPIRES"))
sArticleData = RequestValue("ARTICLEDATA")
If lArticleID > 0 Then
sTitle = GLS_admEditTitle
Else
sTitle = GLS_admAddTitle
End If
If IsAdminLoggedIn Then
Set objErr = CreateObject("Scripting.Dictionary")
DoPageHeader
Response.Write gsTitleOpen & sTitle & gsTitleClose & " "
OpenDBConn
Select Case sCmd
Case "SAVE"
If CheckValues Then
SaveData
Else
ShowForm
End If
Case Else
If lArticleID > 0 Then
LoadValues
Else
vArticleActive = NOW
End If
ShowForm
End Select
CloseDBConn
DoPageFooter
set objErr = Nothing
Else
Response.Redirect "QNAdmin.asp"
End If
Sub SaveData
If lArticleID > 0 Then
'Update
sSQL = "UPDATE tblQNArticles SET " & _
"ArticleName = " & SQLStr(sArticleName) & ", " & _
"ArticleAuthor = " & SQLStr(sArticleAuthor) & ", " & _
"ArticleEmail = " & SQLStr(sArticleEmail) & ", " & _
"ArticleLinkURL = " & SQLStr(sArticleLink) & ", " & _
"ArticleImageURL = " & SQLStr(sArticleImage) & ", " & _
"ArticleActive = " & SQLDate(vArticleActive) & ", " & _
"ArticleExpires = " & SQLDate(vArticleExpires) & ", " & _
"ArticleData = " & SQLStr(sArticleData) & " " & _
" WHERE ArticleID = " & SQLVal(lArticleID)
gobjConnect.Execute(sSQL)
sMessage = GLS_AdmEditSuccess
Else
'Insert
Set rsNews = Server.CreateObject("ADODB.RecordSet")
rsNews.Open "tblQNArticles", gobjConnect, 1, 3, &H0002 'adOpenKeyset, adLockOptimistic, adCmdTable
rsNews.AddNew
rsNews("ArticleName") = sArticleName
rsNews("ArticleAuthor") = sArticleAuthor
rsNews("ArticleEmail") = sArticleEmail
rsNews("ArticleLinkURL") = sArticleLink
rsNews("ArticleImageURL") = sArticleImage
rsNews("ArticleActive") = vArticleActive
If NOT IsNull(vArticleExpires) Then
rsNews("ArticleExpires") = vArticleExpires
End If
rsNews("ArticleData") = sArticleData
rsNews.Update
lArticleID = rsNews("ArticleID")
rsNews.Close
set rsNews = Nothing
sMessage= GLS_AdmAddSuccess
End If
Response.Write gsPlainTextOpen & sMessage & " "
Response.Write "" & GLS_AdmAddView & ""
End Sub
Sub ShowForm
Response.Write "
"
Response.Write ""
Response.Write "
"
End Sub
Function CheckValues
If len(sArticleName) = 0 Then
objErr.Add "NAME", gsErrorTextOpen & GLS_AdmErrTitle & gsErrorTextClose
End If
If len(sArticleData) = 0 Then
objErr.Add "DATA", gsErrorTextOpen & GLS_AdmErrArticle & gsErrorTextClose
End If
If NOT IsDate(vArticleActive) Then
objErr.Add "ACTIVE", gsErrorTextOpen & GLS_AdmErrActive & gsErrorTextClose
Else
If IsDate(vArticleExpires) Then
If CDate(vArticleExpires) < CDate(vArticleActive) Then
objErr.Add "EXPIRES", gsErrorTextOpen & GLS_AdmErrExpires & gsErrorTextClose
End If
End If
End If
If objErr.Count > 0 Then
CheckValues = False
Else
CheckValues = True
End If
End Function
Sub LoadValues
sSQL = "SELECT * FROM tblQNArticles WHERE ArticleID = " & SQLVal(lArticleID)
Set rsArticle = gobjConnect.Execute(sSQL)
If Not rsArticle.Eof Then
sArticleName = "" & rsArticle.Fields("ArticleName")
sArticleAuthor = "" & rsArticle.Fields("ArticleAuthor")
vArticleActive = FDate(rsArticle.Fields("ArticleActive"))
vArticleExpires = FDate(rsArticle.Fields("ArticleExpires"))
sArticleData = "" & rsArticle.Fields("ArticleData")
sArticleEmail = "" & rsArticle.Fields("ArticleEmail")
sArticleLink = "" & rsArticle.Fields("ArticleLinkURL")
sArticleImage = "" & rsArticle.Fields("ArticleImageURL")
End If
rsArticle.Close
Set rsArticle = Nothing
End Sub
%>