<%
function sendMail(recepient,from,fromname, subject,message)
Set cdoMessage = CreateObject("CDO.Message")
cdoMessage.Subject = subject
cdoMessage.From = from
cdoMessage.To = recepient
cdoMessage.TextBody = message
cdoMessage.Send
Set cdoMessage = Nothing
mailstatus=true
end function
%>
<%
if ucase(request.form("submit")) = "SUBMIT" then
Dim Emfrom_email,Emfrom_fname,Emfrom_lname,Emsub,Emto,Embody,EmNote,EmTel,emfrom_city,emfrom_state,em_contactmethod,ipaddress
' input validation
ip=Request.ServerVariables("REMOTE_ADDR")
Emfrom_fname = trim(request.form("First_Name"))
Emfrom_lname= trim(request.form("Last_Name"))
Emfrom_email= trim(request.form("Email"))
Emfrom_city = trim(request.form("City"))
Emfrom_tel= trim(request.form("Cell_Phone"))
Emfrom_state= trim(request.form("State"))
EmNote = trim(request.form("Note"))
Em_contactmethod= trim(request.form("Best_method"))
Emsub = "[PI Mall] :- Contact Form sent by "&Emfrom_fname&" "& Emfrom_lname& " from IP address "&ip&vbCrLf
Embody = Embody & "The following person has filled Contact Form :" & vbCrLf & vbCrLf
Embody = Embody & "Full Name: " & Emfrom_fname&" "& Emfrom_lname& vbCrLf
Embody = Embody & "Email Address: " & Emfrom_email & vbCrLf
Embody = Embody & "Cell Phone: " & Emfrom_tel & vbCrLf
Embody = Embody & "City: " & Emfrom_city & vbCrLf
Embody = Embody & "State: " & Emfrom_state & vbCrLf
Embody = Embody & "Note: " & EmNote & vbCrLf
Embody = Embody & "Best Contact Method: " & Emfrom_email & vbCrLf
mailstatus = sendMail("jseanor@cibir.net", Emfrom_email, Emfrom_name,Emsub,Embody)
response.write "Thank you. We will get back to you as soon as possible."
else
%>
<% end if%>