|
"
techSuppEmail = "techsupp@thindata.com"
fieldSize = 30
'#######
'### IF YOU CHANGE THE FIELDS ON THE FORM THEN YOU NEED TO CLOSE OFF THE CURRENT DATA FILE
'### (ie: move it to archives) AND UPDATE THESE TWO VARIABLES, AS WELL, YOU NEED TO UPDATE
'### THE EMAIL MESSAGE SECTION TO REFLECT THE NEW FIELDS ON THE FORM
'###
'### fieldList: array listing all the field names on the form, in order
'### fieldReq: semi-colon separated list defining which fields are mandatory
'###
'#######
fieldList = array ("First Name","Last Name","Street Address","City","Prov or State","Country","Postal or Zip Code","Phone Number","Fax Number","Email Address","Profession","Found Via","Comments")
fieldReqd = "First Name;Last Name;Street Address;City;Prov or State;Country;Postal or Zip Code;Email Address;Found Via;Comments"
'###[ EMAIL MESSAGE CONFIGURATION ]################################################################
message = _
"------------------------------------------------" & crlf2 & _
"Date: " & date & crlf & _
"Time: " & time & crlf & _
"From: " & rq("First Name") & " " & rq("Last Name") & " (" & rq("Email Address") & ")" & crlf2 & _
"Comments:" & crlf2 & _
rq("comments") & crlf2 & _
"------------------------------------------------" & crlf & _
"Additional info from '" & rq("First Name") & " " & rq("Last Name") & "'" & crlf2 & _
"Street Address: " & rq("Street Address") & crlf & _
" City: " & rq("City") & crlf & _
"State/Province: " & rq("Prov or State") & crlf & _
" Country: " & rq("Country") & crlf & _
" Postal Code: " & rq("Postal or Zip Code") & crlf & _
" Phone: " & rq("Phone Number") & crlf & _
" e.dcf: " & rq("e.dcf") & crlf & _
" membership: " & rq("membership") & crlf & _
" Fax: " & rq("Fax Number") & crlf & _
" Profession: " & rq("Profession") & crlf & _
"Found Site Via: " & rq("Found Via") & crlf & _
"------------------------------------------------" & crlf & _
"Security information " & crlf2 & _
"Remote Address: " & request.servervariables("REMOTE_ADDR") & crlf & _
" Remote Host: " & request.servervariables("REMOTE_HOST") & crlf & _
"------------------------------------------------" & crlf2 & _
"If you are experiencing problems with this service, please contact " & techSuppEmail & crlf
'###[ ADVANCED CONFIGURATION VARIABLES ]############################################################
'###[ NOT NORMALLY CHANGED ]############################################################
fieldSep = chr(9)
mailserver = "mail.thindata.net"
emailSender = "mailservices@thindata.com"
emailSenderName = rq("First Name") & " " & rq("Last Name")
emailSubject = "FEEDBACK: submission from " & fqdn
emailReplyTo = rq("Email Address")
version = "1.03"
'###[ END BASIC CONFIGURATION VARIABLES ]###########################################################
%>
|
