<%@LANGUAGE="VBSCRIPT"%> <% Session("svemail") = Request("email1") %> <% Session("svpassword") = Request("password") %> <% Session("svregname") = Request("reg_name") %> <% Dim mobile_no mobil_no = "reg.gif" %> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "reg_form") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_Conn_4kbb_STRING MM_editCmd.CommandText = "INSERT INTO [Copy of register] (reg_name, contact_name, postcode_id, addr1, addr2, town, post_code, tel_no, fax_no, email1, web_url, showroom, corgi, estimates, mobile_no) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("reg_name")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("contact_name")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 50, Request.Form("select2")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 50, Request.Form("addr1")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 50, Request.Form("addr2")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 50, Request.Form("town")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 50, Request.Form("post_code")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 50, Request.Form("tel_no")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 50, Request.Form("fax_no")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 50, Request.Form("email1")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 50, Request.Form("web_url")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 50, MM_IIF(Request.Form("showroom"), "Y", "N")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 50, MM_IIF(Request.Form("corgi"), "Y", "N")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 201, 1, 50, MM_IIF(Request.Form("estimates"), "Y", "N")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 201, 1, 50, Request.Form("mobile_no")) ' adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "feedbk.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim RsPost Dim RsPost_cmd Dim RsPost_numRows Set RsPost_cmd = Server.CreateObject ("ADODB.Command") RsPost_cmd.ActiveConnection = MM_Conn_4kbb_STRING RsPost_cmd.CommandText = "SELECT * FROM [Copy of register]" RsPost_cmd.Prepared = true Set RsPost = RsPost_cmd.Execute RsPost_numRows = 0 %> <% Dim RsCounty Dim RsCounty_cmd Dim RsCounty_numRows Set RsCounty_cmd = Server.CreateObject ("ADODB.Command") RsCounty_cmd.ActiveConnection = MM_Conn_4kbb_STRING RsCounty_cmd.CommandText = "SELECT * FROM county ORDER BY county_name ASC" RsCounty_cmd.Prepared = true Set RsCounty = RsCounty_cmd.Execute RsCounty_numRows = 0 %> <% Dim RsReg Dim RsReg_cmd Dim RsReg_numRows Set RsReg_cmd = Server.CreateObject ("ADODB.Command") RsReg_cmd.ActiveConnection = MM_Conn_4kbb_STRING RsReg_cmd.CommandText = "SELECT * FROM [Copy of register]" RsReg_cmd.Prepared = true Set RsReg = RsReg_cmd.Execute RsReg_numRows = 0 %>
 

Please complete this form for your registration. The items marked with an asterix * must be completed.
 

Company name*          
Contact name*  

Choose a password between 4 to 8 characters long and make a note of it*
Please enter the 1 or 2 letters before the numbers in your postcode*

Address line1*
Address line2    
Town*   
County      
Postcode*


Tel no*.
Fax no.

Email address*
Web site URL

 

Which of these do you sell?
kitchen 
bedroom
bathroom  
study
Other:

Opening times:
Monday to Friday a.m. to except
Saturdays
Sundays     

Which of these facilities do you provide?
fully fitted carcasses and doors
replacement doors & worktops
freestanding units for DIY

specialist manufactured on our own premises
have showroom displays
Corgi® registered fitters  
 estimates free & without obligation
interest free credit   

Established since

 Specialists in:

Other information:

                                                                                                     

 
 
<% RsPost.Close() %> <% RsCounty.Close() %> <% RsReg.Close() %>