|
|
|
CRC provides a monthly update of its commercial property listings and space availabilities. If you would like to receive these email updates, please complete the form to the right. It is CRC’s strict policy not to not sell, share or disclose any information provided by our list subscribers. You may cancel your email updates at any time.
|
|
<%
if request("Insert")="true" then
Set Con=Server.CreateObject("ADODB.Connection")
con.Open session("constr")
table=request("table")
InsertSQL = "Insert into email ( email,firstname,lastname,title,company,category1,category2,enabled) Values (" & FixQuotes(sp(Request.Form("email"))) & "," & FixQuotes(sp(Request.Form("firstname"))) & "," & FixQuotes(sp(Request.Form("lastname"))) & "," & FixQuotes(sp(Request.Form("title"))) & "," & FixQuotes(sp(Request.Form("company"))) & "," & FixQuotes(zero(Request.Form("category1"))) & "," & FixQuotes(zero(Request.Form("category2"))) & "," & FixQuotes(zero(Request.Form("enabled"))) & ")"
'response.write InsertSQL
con.execute InsertSQL
Response.redirect "manage_email.asp"
end if
%>
<%say msg%>
|
