<% Option Explicit %>
<%
response.expires = 0
response.buffer = true
%>
<%
if session("login") <> "true" then
response.redirect "login2.asp"
End If
%>
<%
response.expires = 0
response.buffer = true
dim db, strConnection
Set db = Server.CreateObject("ADODB.Connection")
strConnection = "driver={MySQL 3.22.32};server=localhost;uid=root;pwd=cobalt-mysql;database=css"
db.open strConnection
%>
<%
DIm strRedirect
Dim strMessage
Strredirect = Request.QueryString("id")
If strRedirect = "1" then
StrMessage = "Content has been posted to the site."
Elseif strRedirect = "2" then
StrMessage = "Content has been deleted."
Elseif strRedirect = "3" then
StrMessage = "Content has been edited."
Else
StrMessage = ""
End if
%>