%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Message Message ="" If request.Form("send") = "1" then Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mx.avint.net" .Update End With Set cdoMessage = CreateObject("CDO.Message") Dim HTML HTML = "A new regristration has been recieved from imagesinslate.com:" HTML = HTML & vbCrLf & vbCrLf & "PPAI #: " & request.Form("ppaino") HTML = HTML & vbCrLf & "ASI #: " & request.Form("asino") HTML = HTML & vbCrLf & "PPAC #: " & request.Form("ppacno") HTML = HTML & vbCrLf & "SAGE #: " & request.Form("sageno") HTML = HTML & vbCrLf & "Other #: " & request.Form("otherno") HTML = HTML & vbCrLf & "Business Tax ID #: " & request.Form("bustaxid") HTML = HTML & vbCrLf & "Company Name: " & request.Form("companyname") HTML = HTML & vbCrLf & "Address: " & request.Form("address") HTML = HTML & vbCrLf & "City: " & request.Form("city") HTML = HTML & vbCrLf & "State/Province: " & request.Form("province") HTML = HTML & vbCrLf & "Postal/Zip: " & request.Form("postal") HTML = HTML & vbCrLf & "Country: " & request.Form("country") HTML = HTML & vbCrLf & "Tel: " & request.Form("tel") HTML = HTML & vbCrLf & "Fax: " & request.Form("fax") HTML = HTML & vbCrLf & "Email: " & request.Form("email") HTML = HTML & vbCrLf & "Website: " & request.Form("website") HTML = HTML & vbCrLf & "Contact Name: " & request.Form("contact") HTML = HTML & vbCrLf & "Other Company Contacts: " & request.Form("othercontacts") HTML = HTML & vbCrLf & "Notes: " & request.Form("textarea") HTML = HTML & vbCrLf & "Do you want us to keep any other notes on file? " & request.Form("keepinfo") HTML = HTML & vbCrLf & "Would you like to receive regular updates? " & request.Form("updates") With cdoMessage Set .Configuration = cdoConfig .From = "www@iis.ca" .To = "mark@sfd.ca" .Subject = "New Registration - " & Date .TextBody = HTML .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Message = "Registration send!" end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||