<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FUNCTION THAT MASKS (IN ASCII CODE) AN EMAIL ADDRESS FROM A BOT BUT SHOWS IT TO VISITORS
' FOR USE ANYWHERE AN EMAIL ADDRESS WILL BE PLACED IN A PAGE
' FORMAT: maskAddress("mailto:address@domain.com")
Function maskAddress(email)
For j = 1 to Len(email)
maskAddress = maskAddress & "&#" & asc(Mid(email,j,1)) & ";"
Next
End Function
' SCRIPT THAT HANDLES FORM POSTBACK
' 1. GENERATES VCARD FILE FROM FORM CONTENTS
' 2. SENDS EMAIL TO "SALES@darrink.COM" WITH VCARD AS ATTACHMENT
' 3. DELETES VCARD FILE UPON SUCCESSFUL TRANSFER OF MAIL AND ATTACHMENT
' 4. DISPLAYS SUCCESS OR ERROR MESSAGE DEPENDING ON OUTCOME OF MAIL TRANSFER
Dim fsystem, vCardFile ' VARIABLES NECESSARY FOR GENERATION OF VCARD FILE
Dim new_message, err_message, msg_sent ' VARIABLES FOR MAIL MESSAGE AND RELATED TASKS
Dim name_array, split_name ' VARIABLES FOR SPITTING AND REARRAGING USER'S NAME
If Request.Form("postback") = "true" Then ' IF FORM IS BEING POSTED BACK TO SERVER
' SPLIT "visitorName" FOR USE IN VCARD FILE
If InStr(Request.Form("visitorName"), " ") Then
name_array = Split(Request.Form("visitorName"))
split_name = name_array(1) & ";" & name_array(0)
Else
split_name = Request.Form("visitorName")
End If
'CREATE VCARD FILE
Set fsystem = Server.CreateObject("Scripting.FileSystemObject")
Set vCardFile = fsystem.CreateTextFile("D:\hshome\bdk2272\darrink.com\misc\" & Request.Form("visitorName") & ".vcf")
' WRITE REQUIRED VALUES TO VCARD FILE
vCardFile.WriteLine("BEGIN:VCARD")
vCardFile.WriteLine("VERSION:2.1")
vCardFile.WriteLine("N:" & split_name)
vCardFile.WriteLine("FN:" & Request.Form("visitorName"))
vCardFile.WriteLine("ORG:" & Request.Form("companyName"))
vCardFile.WriteLine("TEL;WORK;VOICE:" & Request.Form("workPhone"))
vCardFile.WriteLine("EMAIL;PREF;INTERNET:" & Request.Form("emailAddr"))
' WRITE OPTIONAL VALUES TO VCARD FILE
If Request.Form("companyAddr") <> "" Then vCardFile.WriteLine("ADR;WORK:;;" & Request.Form("companyAddr") & ";" & Request.Form("companyCity") & ";" & Request.Form("companyState") & ";" & Request.Form("companyZip") & ";")
If Request.Form("workFax") <> "" Then vCardFile.WriteLine("TEL;WORK;FAX:" & Request.Form("workFax"))
' WRITE NOTE, REVISION NUMBER AND END TAG, CLOSE VCARD FILE
If Request.Form("reqBrochure") = "yes" Then ' SEND BROCHURE REQUEST
vCardFile.WriteLine("NOTE:" & Date & " - Guest Book Entry, Operator has talked to KE9NS")
Else
vCardFile.WriteLine("NOTE:" & Date & " - Guest Book Entry, Operator has NOT talked to KE9NS")
End If
vCardFile.WriteLine("REV:" & Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now))
vCardFile.WriteLine("END:VCARD")
vCardFile.Close
'#######################################################################################
' CREATE AND SEND MESSAGE OBJECT
'#######################################################################################
Set mail_message = Server.CreateObject("CDONTS.NewMail")
' MAIL HEADER FIELDS
mail_message.From = Request.Form("emailAddr")
mail_message.To = "darrin@ke9ns.com"
mail_message.Subject = "KE9NS Guest Book"
mail_message.Body = Request.Form("visitorComments")
' ADD VCARD AS ATTACHMENT IF FILE EXISTS
If fsystem.FileExists("D:\hshome\bdk2272\darrink.com\misc\" & Request.Form("visitorName") & ".vcf") Then
mail_message.AttachFile("D:\hshome\bdk2272\darrink.com\misc\" & Request.Form("visitorName") & ".vcf")
End If
mail_message.Send
Set mail_message = Nothing
'#######################################################################################
' DELETE VCARD FILE
If fsystem.FileExists("D:\hshome\bdk2272\darrink.com\misc\" & Request.Form("visitorName") & ".vcf") Then
fsystem.DeleteFile "D:\hshome\bdk2272\darrink.com\misc\" & Request.Form("visitorName") & ".vcf"
End If
' CLEAN UP
Set vCardFile = Nothing
Set fsystem = Nothing
Set new_message = Nothing
Dim objConn, objCmd, sqlStr
Set objConn = Server.CreateObject("ADODB.Connection")
Set objCmd = Server.CreateObject("ADODB.Command")
objConn.Open connection_str
sqlStr = "INSERT INTO tb_mail_list (customerName, companyName, companyAddr, companyCity, companyState, companyZip, emailAddr, workPhone, workFax) VALUES ('" & Request.Form("visitorName") & "', '" & Request.Form("companyName") & "', '" & Request.Form("companyAddr") & "', '" & Request.Form("companyCity") & "', '" & Request.Form("companyState") & "', '" & Request.Form("companyZip") & "', '" & Request.Form("emailAddr") & "', '" & Request.Form("workPhone") & "', '" & Request.Form("workFax") & "');"
Set objCmd.ActiveConnection = objConn
objCmd.CommandText = sqlStr
objCmd.CommandType = 1
objCmd.Execute
objConn.Close
Set objCmd = Nothing
Set objConn = Nothing
Response.Redirect("misc/thanks.asp")
End If ' END IF Request.Form("postback") = "true"
%>
KE9NS Guest Book
