<% OPTION EXPLICIT %>
<%
Dim sFormAction 'hidden form field
Dim sErr 'list of deficiencies/errors in input
Dim nContactID
Dim dteSubmittedDate
Dim sName
Dim sCompany
Dim sPhone
Dim sEmail
Dim sFax
Dim sComments
sErr = ""
sFormAction = Request.Form("_action") 'hidden form field
nContactID = CvtInteger(GetParameter("contact_id", "0"))
sName = Trim(GetParameter("name", ""))
sCompany= Trim(GetParameter("company", ""))
sPhone = Trim(GetParameter("phone", ""))
sEmail = Trim(GetParameter("email", ""))
sFax = Trim(GetParameter("fax", ""))
sComments = Trim(GetParameter("comments", ""))
if sFormAction = "update" then
Dim sBody
sBody=""
If Len(GetParameter("1","")) > 0 then
sBody= sBody & "I am interested in becoming a TMM Business Agent. Please contact me with more information about your Agent Program." & vbCrLf
end if
If Len(GetParameter("2","")) > 0 then
sBody= sBody & "I am interested in signing up for your service and need more information. Please have a TMM Business Agent contact me."& vbCrLf
end if
If Len(GetParameter("3","")) > 0 then
sBody= sBody & "I have a question about my TMM Business account. Please have a Customer Service Representative contact me. " & vbCrLf
end if
'// notify staff that a contact msg has been posted
Dim objMail, sSubject
Set objMail = Server.CreateObject("CDONTS.NewMail")
sBody = "Contact Name: " & sName & vbCrLf & _
"Company: " & sCompany & vbCrLf & _
"E-mail " & sEmail & vbCrLf & _
"Phone: " & sPhone & vbCrLf & _
"Fax: " & sFax & vbCrLf & _
"Comments or Questions: " & sComments & vbCrLf & vbCrLf & sBody
With objMail
.From = "webform@transcendmultimedia.com"
.To = "wecare@airdis.com"
.Subject = "Contact TranscendMultimedia.com."
.Body = sBody
.Send
End With
Set objMail = Nothing
Response.Redirect "thankyou.html"
End If
%>
Transcend Multimedia, LLC
News
