<%
IF request("action") = "send" THEN
'open connection to the database
set conn=server.createobject("adodb.connection")
conn.open "DRIVER={SQL Server};SERVER=137.190.3.48;DATABASE=kwcr;UID=gtuck;PWD=gartht"
'get message data
Name=Replace(Request("Name"),"'","''")
Email=Replace(Request("Email"),"'","''")
Phone=Replace(Request("Phone"),"'","''")
Subject=Replace(Request("Subject"),"'","''")
Message=Replace(Request("Message"),"'","''")
conn.execute("INSERT INTO Feedback (Name, Email, Phone, Subject, Message) VALUES ('"&Name&"','"&Email&"','"&Phone&"', '"&Subject&"', '"&Message&"')")
conn.close
set conn=nothing
'send email
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "137.190.3.212"
Mail.From = Request("Email")
Mail.FromName = Request("Name")
Mail.AddAddress "JOLSEN6@weber.edu"
Mail.AddReplyTo Request("Email")
Mail.Subject = "Feedback from the 88.1 website website"
Mail.Body = "The following message was sent from " & Request("Name") & Chr(10) & Chr(10) & _
"Message:" & Chr(13) & Chr(10) & _
Request("Message") & Chr(10) & Chr(10) & _
"----------------------------" & Chr(10) & Chr(10) & _
"Browser type: " & Request.ServerVariables("HTTP_USER_AGENT") & Chr(13) & Chr(10) & _
"IP address: " & Request.ServerVariables("REMOTE_ADDR")
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "The email was not sent due to the following error: " & Err.Description
End If
response.redirect "feedback.asp?action=sent"
END IF
%>
KWCR - Weber State's 88.1 - The Edge
<%IF request("action") = "sent" THEN%>
Your message has
been sent. Thanks!
<%END IF%>
