flipopolis « submit your site »

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' change to address of your own SMTP server strHost = "63.99.224.5" If Request.Form("to") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.Port = 25 Mail.From = Request.Form("to") ' From address Mail.FromName = Request.Form("name") ' optional Mail.AddAddress Request.Form("to") 'Mail.AddAddress "simon@corridor9.com" ' message subject Mail.Subject = "Site Submission" ' message body Mail.Body = "

Name: "& Request.Form("name")&"
"& "E-mail: "&Request.Form("emailAddress")&"
"&"URL: "& Request.Form("url")& "
"& "Category: "& Request.Form("mainCat")& "

"& "

Website Description:
"& Request.Form("websiteDescription")&"

" & "

Send Newsletter: " & Request.Form("sendNewsletter") & "

" Mail.IsHTML = True strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> <% If Request.Form("to") <> "" Then 'dump form results into local variables Dim varName, emailAddress, url, mainCat, websiteDescription, sendNewsletter varName = Request.Form("name") emailAddress = Request.Form("emailAddress") url = Request.Form("url") mainCat = Request.Form("mainCat") websiteDescription = Request.Form("websiteDescription") sendNewsletter = Request.Form("sendNewsletter") 'Response.Write(varName & "
") 'Response.Write(emailAddress & "
") 'Response.Write(url & "
") 'Response.Write(mainCat & "
") 'Response.Write(websiteDescription & "
") 'Response.Write(sendNewsletter & "
") 'remove illegal characters varName = Replace(varName, "'", "''") emailAddress = Replace(emailAddress, "'", "''") url = Replace(url, "'", "''") websiteDescription = Replace(websiteDescription, "'", "''") 'Insert form results into log file Set objComm = Server.CreateObject("ADODB.Command") objComm.ActiveConnection = MM_connFlip_STRING objComm.CommandText = "INSERT INTO submissions (name, emailAddress, url, mainCat, websiteDescription, sendNewsletter) VALUES ("&"'"&varName&"', '"&emailAddress&"', '"&url&"', '"&mainCat&"', '"&websiteDescription&"', '"&sendNewsletter&"')" objComm.CommandType = adCmdText 'Response.Write(objComm.CommandText) 'Response.End() objComm.Execute Set objComm = Nothing End If %> <% Dim rsMainCat Dim rsMainCat_numRows Set rsMainCat = Server.CreateObject("ADODB.Recordset") rsMainCat.ActiveConnection = MM_connFlip_STRING rsMainCat.Source = "SELECT * FROM mainCat" rsMainCat.CursorType = 0 rsMainCat.CursorLocation = 2 rsMainCat.LockType = 1 rsMainCat.Open() rsMainCat_numRows = 0 %> flipopolis « submit your site »

submit your site

Submit a Site
If you would like to submit a site to Flipopolis, fill and submit the form below. Maybe your site is good enough to make it to downtown Flipopolis. All submissions will receive a prompt response. If you would like your site removed, e-mail us.

<% If strErr <> "" Then Response.Write "

We're sorry, an error has occurred:
" & strErr & "

" End If %> <% If bSuccess Then Response.Write "

" & Request.Form("name") & ", thank you for your submission.

" End If %>

Name:

E-mail:

URL:

Select Your Category:

Website Description:

<% rsMainCat.Close() Set rsMainCat = Nothing %>