<%
Dim FirstName, LastName,CompanyName,Title,URL,EMail,Telephone
Dim WarningMessage, ConfirmMessage
WarningMessage = ""
ConfirmMessage = ""
If Request.Form("btnSubmit") <> "" Then
If Trim(Request.Form("firstname")) <> "" and Trim(Request.Form("lastname")) <> "" and Trim(Request.Form("email")) <> "" Then
If Not CheckEMail(Trim(Request.Form("email"))) Then
WarningMessage = "The email address you entered is not a valid address. The address should be of the form name@company.domain"
Else
FirstName = Request.Form("firstname")
LastName = Request.Form("lastname")
CompanyName = Request.Form("company")
Title = Request.Form("Title")
URL = Request.Form("corpurl")
EMail = Request.Form("email")
Telephone = Request.Form("ph_areacode")&Request.Form("ph_exchange")&Request.Form("ph_last4")
InsertInterestForm
ConfirmMessage = "Thank you for your interest in Yo!. Someone will contact you shortly to help you Give 'em what they want."
WarningMessage = ""
End If
Else
WarningMessage = "Your Name and Email are required. Please fill in the missing field(s) and then continue."
End If
End If
Function InsertInterestForm()
Dim types, sizes, values
types = Array(ydmVarChar, ydmVarChar, ydmVarChar,ydmVarChar, ydmVarChar, ydmVarChar,ydmVarChar)
sizes = Array(50, 50, 50, 12, 100, 1024, 1024)
values=Array(FirstName, LastName, CompanyName, Telephone, EMail, URL, "info@yo.com")
call ydmCall("INQMAN.INTEREST_INQUIRY", types, sizes, values, false)
End Function
Function CheckEMail(EMailAddress)
If InStr(1,EMailAddress, " ") > 0 or InStr(1,EMailAddress, "/") > 0 or InStr(1,EMailAddress, "@") = 0 or InStr(1,EMailAddress, ".") = 0 Then
CheckEMail = False
Else
CheckEMail = True
End IF
End Function
%>
Yo!
