<% response.expires = 0 %>
<%
Dim objRS
Dim SQL
Dim StrTitle
Dim StrContentArea
Dim StrFAQArea
Dim StrContent
Dim StrDate
Dim StripAddress
StrTitle = Server.HtmlEncode(Request.form("title"))
StrContentArea = Trim(Request.form("content_area"))
StrFAQArea = Trim(Request.form("faqarea"))
StrContent = Server.HtmlEncode(Request.form("content"))
StrDate = now()
StripAddress = Request.ServerVariables("SERVER_NAME")
StrTitle = Replace(StrTitle, vbCrLf,"
")
StrTitle = Replace(StrTitle, " "," ")
StrTitle = Replace(StrTitle, "'", "''")
StrContent = Replace(StrContent, vbCrLf,"
")
StrContent = Replace(StrContent, " "," ")
StrContent = Replace(StrContent, "'", "''")
%>
<%
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
%>
<%
SQL = "INSERT INTO content(title,content,date,ip,content_type,area)VALUES('"& strtitle &"','"& strContent &"','"& StrDate &"','"& strIPaddress &"','"& strContentArea &"','"& strFAQarea &"');"
set objRS = DB.Execute(SQL)
db.close
set objRS = nothing
set db = nothing
response.redirect("default.asp?id=1")
%>