<%
Session("CurrentPage") = "AdminPress"
If Session( "LoginID" ) < "1" Then
Response.Redirect( "adminlogin.asp" )
End If
%>
<%
Dim dbConn
Dim strX
Dim Rs
'Open up a database connection and set up the recordset
Set dbConn = Session("dbConn")
Set Rs = Server.CreateObject("adodb.recordset")
Rs.Cursortype=adOpenDynamic
Rs.LockType=adLockOptimistic
If rqs("do") = "add" or rqs("do") = "edit" Then
'Get the details from the user via a form
rsw( strHeader )
IF rqs("do") = "add" Then
strX = "SELECT * FROM Press WHERE [ID] < 0"
Else
strX = "SELECT * FROM Press WHERE [ID] = " & rqs("id")
End If
Rs.Open strX, dbConn
rsw("")
If Rs.Eof Then
Rs.AddNew
End If
%>
<%
Rs.CancelUpdate
Rs.Close
ElseIf rqs("do") = "delete" Then
'delete the record'
on error resume next
If rqs("id") <> "" Then
cSQL = "DELETE * FROM Press WHERE ID = " & rqs("id")
dbConn.Execute(cSQL)
End If
If Err.Number = 0 Then
response.redirect( Session("CurrentPage") & ".asp" )
Else
rsw( strHeader )
WriteDBError "CANT DELETE THE RECORD",err.Description,cSQL
End If
on error goto 0
ElseIf rqs("do") = "deletepic" Then
'delete the record'
on error resume next
If rqs("id") <> "" Then
cSQL = "UPDATE Press SET PicLink = NULL WHERE ID = " & rqs("id")
dbConn.Execute(cSQL)
End If
If Err.Number = 0 Then
response.redirect( Session("CurrentPage") & ".asp" )
Else
rsw( strHeader )
WriteDBError "CANT DELETE THE PICTURE",err.Description,cSQL
End If
on error goto 0
ElseIf rqs("do") = "update" Then
'Submit the details back to the database
IF rqf("id") < "1" Then
cSQL = "INSERT INTO Press( PublishDate, Published,Publication,Title,Body ) " & _
"VALUES( " & _
strSQLField(rqf("publishdate"),"d") & ", " & _
strSQLField(rqf("published"),"cn") & ", " & _
strSQLField(rqf("publication"),"cn") & ", " & _
strSQLField(rqf("title"),"c") & ", " & _
strSQLField(rqf("body"),"c") & " )"
Else
cSQL = "UPDATE Press SET " & _
"[PublishDate] = " & strSQLField(rqf("publishdate"),"d") & ", " & _
"[Published] = " & strSQLField(rqf("published"),"cn") & ", " & _
"[Publication] = " & strSQLField(rqf("publication"),"cn") & ", " & _
"[Title] = " & strSQLField(rqf("title"),"c") & ", " & _
"[Body] = " & strSQLField(rqf("body"),"c") & " " & _
"WHERE ID = " & rqf( "id" )
End If
on error resume next
dbConn.Execute(cSQL)
If Err.Number = 0 Then
response.redirect( Session("CurrentPage") & ".asp" )
Else
rsw( strHeader )
WriteDBError "CANT UPDATE THE RECORD",err.Description,cSQL
End If
on error goto 0
Else
rsw( vbCrLF & vbCrLF )
rsw( "