<%@ LANGUAGE="VBSCRIPT" %> <% Set Obj = Server.CreateObject("nonnoi_ASPVerify.ASPVerify") strVerify = request("strVerify") if Obj.isVerified(strVerify) then ' fall through Else response.REDIRECT("processcontactError.html") End If set Obj = nothing %> <% Sub Write(strWriteThis) 'This subroutine just writes out whatever is 'passed to it. response.write(strWriteThis & "
") end sub %> <% Dim myCDONTSMail Dim strFrom Dim strTo Dim strSubject Dim strMessage Dim lngImportance 'The following variable assignments are not required 'they are just here to make interpretation of the 'myCDONTSMail.Send line easier. You could put the 'Request.Form statements in the .Send line to cut down 'on the amount of code in the file. strFrom=request.form("Email_addr") strTo=request.form("ToEmailID") strSubject = request.form("Subject") strBody="First Name: " & " " & Request.Form("First_Name") & VBCrLf & "Last Name: " & " " & Request.Form("Last_Name") & VBCrLf & "Title: " & " " & Request.Form("Title") & VBCrLf & "Company: " & " " & Request.Form("Company") & VBCrLf & "Street Address: " & " " & Request.Form("Street_Address") & VBCrLf & "City: " & " " & Request.Form("City") & VBCrLf & "State: " & " " & Request.Form("State") & VBCrLf & "Zip_Code: " & " " & Request.Form("Zip_Code") & VBCrLf & "Country: " & " " & Request.Form("Country") & VBCrLf & "Phone: " & " " & Request.Form("Phone") & VBCrLf & "Fax: " & " " & Request.Form("Fax") & VBCrLf & "Email: " & " " & Request.Form("Email_addr") & VBCrLf & "Comments: " & " " & Request.Form("Comments") & VBCrLf & "Interest1: " & " " & Request.Form("interest1") & VBCrLf & "Interest2: " & " " & Request.Form("interest2") & VBCrLf & "Interest3: " & " " & Request.Form("interest3") & VBCrLf & "Interest4: " & " " & Request.Form("interest4") & VBCrLf & "Interest5: " & " " & Request.Form("interest5") & VBCrLf & "Interest6: " & " " & Request.Form("interest6") & VBCrLf & "Time Frame: " & " " & Request.Form("timeframe") Set myCDONTSMail = CreateObject("CDO.Message") myCDONTSMail.From = strFrom myCDONTSMail.To = strTo myCDONTSMail.Subject = strSubject myCDONTSMail.TextBody = strBody myCDONTSMail.Send Set myCDONTSMail = Nothing %>
Thank You for Contacting AccuVis About Web Site Design and Programming AccuVis Web Site Design Services Thank You for Contacting AccuVis About Web Site Design and Programming
On Target Website Design About AccuVis Web Design
AccuVis Web Design Client Portfolio Contact AccuVis for Web Design
Web site design, B2B e-commerce websites, B2C ecommerce web site, Windows 2000 web host, Microsoft Commerce Server hosting, Microsoft Site Server Hosting, SQL Server website hosting, online catalog, search engine optimization, Chicago, IL, Illinois, Accuvis
Thank You for Contacting AccuVis About Web Site Design and Programming
 



The page you were trying to access has moved.

Please select a page from the left.

 





AccuVis
221 West Jefferson Avenue
Naperville, IL 60540
866-488-4878 or 630-717-8283

 






  
 
Web site design, B2B e-commerce websites, B2C ecommerce web site, Windows 2000 web host, Microsoft Commerce Server hosting, Microsoft Site Server Hosting, SQL Server website hosting, online catalog, search engine optimization, Chicago, IL, Illinois, Accuvis
contact AccuVis web design