<%@ Language = VBScript %> <%Response.Buffer = True Response.Expires = 0 %> User Details <% Dim RedirectPath Dim ProductID '1 = HBrace 4.0 '2 = Consult 2.0 TimeSheet '3 = Finishes Scheduler '4 = HighCalc RedirectPath = Request.querystring("RedirectPath") ProductID = Request.querystring("ProductID") if Request.querystring("Save") = "True" then Dim Cn Dim SQL Dim MyRS 'Open the Connection set Cn = Server.CreateObject("ADODB.Connection") Cn.Open "DSN=VisualWindowsUsers" set MyRS = Server.CreateObject("ADODB.Command") set MyRS.ActiveConnection = Cn SQL = "INSERT INTO [Contacts Table] " SQL = SQL & "(ContactName, CompanyName, TypeOfBusiness, PostalAddress1, PostalAddress2, PostalAddress3, StreetAddress1, StreetAddress2, StreetAddress3, Telephone, Fax, Email, ProductID)" SQL = SQL & " VALUES ('" & NewStr(Request.Form("ContactName")) & "', '" & NewStr(Request.Form("CompanyName")) & "', '" SQL = SQL & NewStr(Request.Form("TypeOfBusiness")) & "', '" & NewStr(Request.Form("PostalAddress1")) & "', '" SQL = SQL & NewStr(Request.Form("PostalAddress2")) & "', '" & NewStr(Request.Form("PostalAddress3")) & "', '" SQL = SQL & NewStr(Request.Form("StreetAddress1")) & "', '" & NewStr(Request.Form("StreetAddress2")) & "', '" SQL = SQL & NewStr(Request.Form("StreetAddress3")) & "', '" & NewStr(Request.Form("Telephone")) & "', '" SQL = SQL & NewStr(Request.Form("Fax")) & "', '" & NewStr(Request.Form("Email")) & "', " SQL = SQL & CLng(Request.Form("ProductID")) & ")" MyRS.CommandText = SQL MyRS.CommandType = adCmdText MyRS.Execute set MyRS = nothing Cn.Close set Cn = nothing Response.clear Response.redirect "http://www.visualwindows.co.nz/" & RedirectPath & "/downloadapproved.htm" End if %>

Contact Details

To keep you up-to-date with any changes or additions please complete the following contact details.
Your Name * :
Company Name * :
Type of Business:
Postal Address:
Street Address
Telephone Number * :
Fax Number:
Email Address *:
* Denotes required fields.

Visual Windows Software Ltd. will ensure any information held about you is securely and will not be disclosed to any other person except when authorized by you or by law.
The Privacy Act 1993 gives you the right to see and correct this information.
This information will be used primarily to further the relationship between yourself, Visual Windows Software Ltd.
Copyright © 2001 [Visual Windows Software Ltd]. All rights reserved.