<% Dim Mailer 'create CDONTS mail object Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = Request("EMAIL") ' Mailer.To = "casey@ddsgraphics.com" Mailer.Subject = "Press Kit Request" strMsgHeader = "Form information follows" & vbCrLf strMsgInfo = "Name: " & Request("NAME") & vbCrLf strMsgInfo = strMsgInfo & "Company: " & Request("COMPANY") & vbCrLf strMsgInfo = strMsgInfo & "Reason for Interest: " & Request("REASON") & vbCrLf strMsgInfo = strMsgInfo & "Phone Number: " & Request("PHONE") & vbCrLf strMsgInfo = strMsgInfo & "E-mail: " & Request("EMAIL") & vbCrLf strMsgInfo = strMsgInfo & "Comments: " & Request("COMMENTS") & vbCrLf strMsgFooter = vbCrLf & "End of form information" Mailer.Body = strMsgHeader & strMsgInfo & strMsgFooter Mailer.Send 'release mail object from memory Set Mailer = nothing %> <% if (Request("SUBMIT") = "Proceed") then if ((Request("NAME") <> "") and (Request("COMPANY") <> "") and (Request("PHONE") <> "") and (Request("EMAIL") <> "")) then redirectstring = "form.asp?NAME=" & Server.URLEncode(Request("NAME")) redirectstring = redirectstring & "&COMPANY=" & Server.URLEncode(Request("COMPANY")) redirectstring = redirectstring & "&EMAIL=" & Server.URLEncode(Request("EMAIL")) redirectstring = redirectstring & "&PHONE=" & Server.URLEncode(Request("PHONE")) redirectstring = redirectstring & "&FAX=" & Server.URLEncode(Request("FAX")) response.redirect redirectstring else message = "
!*Error - Missing Required Fields*!
" end if end if %>

 

Media Center Archives
 
 
 
 
 
 
 
 
 
 

 

 

 

ABOUT BOBBY    |   TOUR DATES    |   MERCHANDISE    |   MEDIA CENTER
MEDIA ARCHIVE   |   CONTACT US   |   LYRICS   |   FAN LIST   |   BRANSON LINKS   |   HOME