<%
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")
Comment=request.form("Comment")
City=request.form("City")
if Name<>"" and EMail<>"" and Comment<>"" and City<>"" then
HostName=request.servervariables("REMOTE_ADDR")
Comment=replace(Comment,"'","''")
Name=replace(Name,"'","''")
City=replace(City,"'","''")
mySQL="Insert into Guestbook (Name,EMail,Type,Comment) values ("
mySQL=mySQL & "'" & Name & "',"
mySQL=mySQL & "'" & EMail & "',"
mySQL=mySQL & "'" & City & "',"
mySQL=mySQL & "'" & Comment & "')"
conn.execute(mySQL)
MessageText="From: " & Name & vbcrlf & vbcrlf
MessageText=MessageText & Comment & 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 guestbook entry on the Alamo AMC Online website. Please visit again and tell all of your friends." & vbcrlf & vbcrlf
MessageText=MessageText & "As a reminder, the site is located at http://www.alamo-amc.com" & vbcrlf & vbcrlf
MessageText=MessageText & "Sincerely," & vbcrlf & vbcrlf & vbcrlf
MessageText=MessageText & "Ron Story" & vbcrlf
MessageText=MessageText & "President, Alamo AMC"
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 Guest Book"
Mailer.BodyText = MessageText
Mailer.SendMail
response.redirect "ListGuests.asp"
end if
end if
%>
Guestbook
Alamo
AMC Guest Book Sign-in
Please note:
comments are moderated because of spammers and will appear on the guestbook
after review by the webmaster.