<%
Smpath = "DBQ=" & Server.Mappath("/Data/database.mdb")
DSN="DRIVER={Microsoft Access Driver (*.mdb)}; " & Smpath
set conn=server.createobject("adodb.connection")
conn.open DSN
RequestMethod=Request.ServerVariables("REQUEST_METHOD")
if RequestMethod="POST" then
Name=request.form("Name")
EMail=request.form("EMail")
Ad=request.form("Ad")
City=request.form("City")
if Name<>"" and EMail<>"" and Ad<>"" and City<>"" then
HostName=request.servervariables("REMOTE_ADDR")
Ad=replace(Ad,"'","''")
Name=replace(Name,"'","''")
City=replace(City,"'","''")
mySQL="Insert into Classifieds (Name,EMail,Type,Ad) values ("
mySQL=mySQL & "'" & Name & "',"
mySQL=mySQL & "'" & EMail & "',"
mySQL=mySQL & "'" & City & "',"
mySQL=mySQL & "'" & Ad & "')"
conn.execute(mySQL)
MessageText="From: " & Name & vbcrlf & vbcrlf
MessageText=MessageText & Ad & vbcrlf & vbcrlf & HostName
set Mailer = CreateObject("SMTPsvg.Mailer")
Mailer.FromName= Name
Mailer.FromAddress= EMail
Mailer.RemoteHost = "localhost"
Mailer.Recipient = "webmaster@alamo-amc.com"
Mailer.Subject = "Alamo AMC Online"
Mailer.BodyText = MessageText
Mailer.SendMail
MessageText=Name & ":" & vbcrlf & vbcrlf
MessageText=MessageText & "Thank you for your classified ad on the Alamo AMC Online website. Please note that your classified ad will remain active for thirty days from the date of entry. All agreements and transactions made by users of Alamo-AMC classifieds are done so at their own risk. Accuracy of the information provided by users to the website is not the responsible of Alamo AMC. We reserve the right to remove any classified." & vbcrlf & vbcrlf
MessageText=MessageText & "As a reminder, the site is located at http://www.alamo-amc.com" & vbcrlf & vbcrlf
MessageText=MessageText & "If you need to modify or delete your ad, please contact the webmaster at the email address below." & vbcrlf & vbcrlf
MessageText=MessageText & "Sincerely," & vbcrlf & vbcrlf
MessageText=MessageText & "James Medlock" & vbcrlf
MessageText=MessageText & "Webmaster, Alamo AMC" & vbcrlf
MessageText=MessageText & "webmaster@alamo-amc.com"
set Mailer = CreateObject("SMTPsvg.Mailer")
Mailer.FromName= "Alamo AMC Online"
Mailer.FromAddress= "webmaster@alamo-amc.com"
Mailer.RemoteHost = "localhost"
Mailer.Recipient = EMail
Mailer.Subject = "Alamo AMC Website Classifieds"
Mailer.BodyText = MessageText
Mailer.SendMail
response.redirect "ListAds.asp"
end if
end if
%>
Classifieds
Alamo AMC Classifieds
Submission Page
PLEASE READ INFORMATION FIRST
Information
available on this website relating to goods and services offered by third
parties
is provided
solely for information purposes and is not an endorsement or statement of support
by Alamo AMC. Neither Alamo AMC, club officers nor the web manager assumes
any liability for
the acts or omissions
of such third parties in the provision of those goods and services. All agreements
and transactions made
by users of Alamo AMC classifieds are done so at their own risk. Accuracy of
the information provided by
users to the website is not the responsibility of Alamo AMC. We reserve the
right to remove any classified. Because
of spam, all classifieds will be reviewed, spam will be deleted unseen,
then ads posted. Check back within twenty-four hours to see if your ad
has been posted. Thank you!