%@ LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% Dim strError Dim strMethod Dim strAddress Dim strDescription Dim strFirstName Dim strLastName Dim strProduct Dim strOrganization Dim strFrom Dim strBody If Request.Form("ValidationReq") = 1 Then ReadForm() ValidateForm() If strError = "" Then strBody = strFirstName & " " & strLastName & Chr(13) & Chr(10) strBody = strBody & strOrganization & Chr(13) & Chr(10) strBody = strBody & strProduct & Chr(13) & Chr(10) strBody = strBody & strMethod & " " & strAddress & Chr(13) & Chr(10) strBody = strBody & strDescription If SendMail(strFrom, strBody) = False Then strError = "Error sending support request!" Else strError = "Your support request has been submitted." strAddress = "" strDescription = "" strFirstName = "" strLastName = "" strProduct = "" strOrganization = "" End If End If End If %> <% Sub ReadForm() strMethod = Request.Form("METHOD") strAddress = Request.Form("ADDRESS") strDescription = Request.Form("DESCRIPTION") strFirstName = Request.Form("FIRSTNAME") strLastName = Request.Form("LASTNAME") strOrganization = Request.Form("ORGANIZATION") strProduct = Request.Form("PRODUCT") If strMethod <> "Email" Then strFrom = "webmaster@inabyte.com" Else strFrom = strAddress End If End Sub Sub ValidateForm() If strMethod = "" Then strError = "Bad Method" Exit Sub End If If strAddress = "" Then strError = "Bad Address" Exit Sub End If If strDescription = "" Then strError = "Bad Description" Exit Sub End If If strFirstName = "" Then strError = "Bad FirstName" Exit Sub End If If strLastName = "" Then strError = "Bad LastName" Exit Sub End If If strOrganization = "" Then strError = "Bad Organization" Exit Sub End If If strProduct = "" Then strError = "Bad Product" Exit Sub End If If strMethod = "Email" Then If CheckMailableDomain(strAddress) = False Then strError = "Bad Address" Exit Sub End If End If End Sub Function CheckMailableDomain(strEmailAddress) CheckMailableDomain = True Dim DNSObject Set DNSObject = CreateObject("InaByte.InaEmailCheck") rem DNSObject.DnsServer = "ns.brainstorm.net" rem DNSObject.DnsServer = "ns1.inabyte.net" Dim strDomainCount strDomainCount = DNSObject.Lookup(strEmailAddress).Count If strDomainCount = 0 Then CheckMailableDomain = False End If End Function Sub DoError Dim str str = "" + chr(13) + chr(10) Response.Write(str) End Sub Function SendMail(strFrom, strBody) On Error Resume Next Dim mailObject Dim mailError Dim strEvent SendMail=True Set mailObject = CreateObject("InaByte.InaEmailSend") mailObject.SmtpServer = "poseidon" mailObject.From.Value = strFrom mailObject.Subject = "Support Request" mailObject.To.Add("support@inabyte.com") mailObject.Body = strBody mailObject.Send If mailObject.Errors.Count > 0 Then SendMail=False End If Set mailObject = Nothing End Function %>
Products XComp (Free) Press Releases |
Technical Support Customer Commitment Besides designing and manufacturing quality software products, we provide customers with accurate and timely support. This makes Inabyte Inc. an easy company to do business with - before and after sales. By Email support@inabyte.com By Fax 415-898-1652 By Form (Secure Form) - All fields below are required! |
|