<%@ 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 %> Inabyte Inc. Support Page <%DoError()%>

Home

Buy Now

Products
  InaAuthenticate
  InaAuthenticate.Net
  InaCalcStd (Free)
  InaCalcPro
  InaCalc.Net
  InaCardCheck
  InaCardCheck.Net
  InaClock
  InaClockCtrl
  InaClockCtrl.Net
  InaCryptCompress.Net
  InaEmailCheck
  InaEmailCheck.Net
  InaEmailSend
  InaFileConverter
  InaGrid
  InaSysTray
  InaUploadFile
  InaXplorer

  XComp (Free)

Support

About

Press Releases
   .Net
   InaAuthenticate
   InaCalc
   InaCardCheck
   InaClock
   InaEmailCheck
   InaEmailSend
   InaGrid
   InaUploadFile

ComponentSource Professional Partner

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!

Product: <%DoComboBox "product", "products", strProduct, 1, 1%>
First Name:
Last Name:
Organization:
Please contact me by:

at address:

Problem Description:

 

Home Products Support About Press Releases

Copyright 1996 - 2005 by Inabyte Inc., Novato, California, USA
Last modified: Sunday, October 31, 2004 14:02

Inabyte Inc.
5 Betty Lane
Novato CA 94947
Phone: +1 415 898 7905
Fax: +1 415 898 1652