<% @LANGUAGE=VBSCRIPT %>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True
Upload.SaveVirtual("../upload/")
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "relay-hosting.secureserver.net"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = Upload.form("email")
.To = "email@email.com"
.Subject = "Self Centered Productions Webform Request"
.TextBody = "Name: " & Upload.form("fname") & vbCrLf & "Last Name: " & Upload.form("lname") & vbCrLf & "Company: " & Upload.form("company") & vbCrLf & "Trade: " & Upload.form("Trade") & vbCrLf & "Telephone: " & Upload.form("telephone") & vbCrLf & "Email: " & Upload.form("email") & vbCrLf & "Cell: " & Upload.form("cellphone") & vbCrLf & "Location: " & Upload.form("location") & vbCrLf & "Comments: " & Upload.form("Comments")
.AddAttachment Upload.form("attachment")
.Send
response.redirect "success.htm"
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>