<%@LANGUAGE="VBSCRIPT"%> <% dim vError,vSent vSent="" vError="" if request("SendReg")="true" then ' if request("Maker")<>"0" and trim(request("OtherM"))<>"" then ' vError=vError & "You MUST select 'Other Maker', to specify an alternative Maker!
" ' elseif request("Maker")="0" and trim(request("OtherM"))="" then ' vError=vError & "If you select 'Other Maker', you MUST specify that Maker!
" ' end if if trim(request("FirstName"))="" or len(trim(request("FirstName")))<2 then vError=vError & "You MUST enter your correct First Name!
" end if if trim(request("LastName"))="" or len(trim(request("LastName")))<2 then vError=vError & "You MUST enter your correct Last Name!
" end if if trim(request("Street"))="" then vError=vError & "You MUST enter the Street for your Address!
" end if if trim(request("Town"))="" or len(trim(request("Town")))<3 then vError=vError & "You MUST enter the Town for your Address!
" end if if trim(request("County"))="" or len(trim(request("County")))<2 then vError=vError & "You MUST enter the County/State/Province/Canton for your Address!
" end if if trim(request("Country"))="" then vError=vError & "You MUST select a Country for your Address!
" end if if trim(request("PostCode"))="" then vError=vError & "You MUST enter the Post/Zip Code for your Address!
" end if dim vCheckTel vCheckTel=(trim(request("HomeTel"))+trim(request("WorkTel"))+trim(request("MobileTel"))) if vCheckTel="" then vError=vError & "You MUST enter EITHER your Home, Work or Mobile Telephone Number!
" else if trim(request("HomeTel"))<>"" and not isnumeric(replace(request("HomeTel")," ","")) then vError=vError & "You MUST enter your correct Home Telephone Number (Numbers Only)!
" end if if trim(request("WorkTel"))<>"" and not isnumeric(replace(request("WorkTel")," ","")) then vError=vError & "You MUST enter your correct Work Telephone Number (Numbers Only)!
" end if if trim(request("MobileTel"))<>"" and not isnumeric(replace(request("MobileTel")," ","")) then vError=vError & "You MUST enter your correct Mobile Telephone Number (Numbers Only)!
" end if end if %> <% if not IsEmailAddress(request("Email")) then vError=vError & "You MUST enter a valid Email Address!
" else Dim rsEmailCheck__MMColParam rsEmailCheck__MMColParam = "1" if (request.form("Email") <> "") then rsEmailCheck__MMColParam = request.form("Email") set rsEmailCheck = Server.CreateObject("ADODB.Recordset") rsEmailCheck.ActiveConnection = MM_m_pairs_db_STRING rsEmailCheck.Source = "SELECT EmailName FROM ContactsTable WHERE EmailName = '" + replace(rsEmailCheck__MMColParam, "'", "''") + "'" rsEmailCheck.CursorType = 0 rsEmailCheck.CursorLocation = 2 rsEmailCheck.LockType = 3 rsEmailCheck.Open() rsEmailCheck_numRows = 0 if not rsEmailCheck.EOF or not rsEmailCheck.BOF then vEmailClass = "input01Error" vError=vError & "There is already a registered account with MatchedPairs.com
using the email address you have entered.
please contact us on info@on1.com
" end if rsEmailCheck.Close() end if if vError<>"" then subDisplayPage() else %> <% subDisplayPage() end if else subDisplayPage() end if sub subDisplayPage() %> Matched Pairs Limited
Matched Pairs Limited - Joe Hall Matched Pairs - A unique service reuniting matched pairs of fine guns from around the world Matched Pairs trade fine guns Matched Pairs Limited
 

Midgeholme, Mordon, Sedgefield, County Durham, England TS21 2EY

Fax and Phone: 01740 620667, Mobile Phone: 07973 102221

Directors:  J.P. Hall. A.H. Hall and K. Hall
<% Dim rsNum Dim rsNum_numRows Set rsNum = Server.CreateObject("ADODB.Recordset") rsNum.ActiveConnection = MM_m_pairs_db_STRING rsNum.Source = "SELECT ContactID FROM ContactsTable ORDER BY ContactID DESC" rsNum.CursorType = 0 rsNum.CursorLocation = 2 rsNum.LockType = 1 rsNum.Open() rsNum_numRows = 0 %> "> <% rsNum.Close() Set rsNum = Nothing %> <% if vError<>"" then %> <% end if if vSent = "true" then %> <% end if Dim rsMaker Dim rsMaker_numRows Set rsMaker = Server.CreateObject("ADODB.Recordset") rsMaker.ActiveConnection = MM_m_pairs_db_STRING rsMaker.Source = "SELECT fG_Name FROM tMakers ORDER BY fG_Name ASC" rsMaker.CursorType = 0 rsMaker.CursorLocation = 2 rsMaker.LockType = 1 rsMaker.Open() rsMaker_numRows = 0 %> <% rsMaker.Close() Set rsMaker = Nothing %> <% Dim rsCountry Dim rsCountry_numRows Set rsCountry = Server.CreateObject("ADODB.Recordset") rsCountry.ActiveConnection = MM_m_pairs_db_STRING rsCountry.Source = "SELECT fCountry FROM tCountries ORDER BY fCountry ASC" rsCountry.CursorType = 0 rsCountry.CursorLocation = 2 rsCountry.LockType = 1 rsCountry.Open() rsCountry_numRows = 0 %> <% rsCountry.Close() Set rsCountry = Nothing %>
<%=vError%>
Your Registration has been successful!
*First Name: " id="FirstName" size="25" maxlength="50">
*Last Name: " id="LastName" size="25" maxlength="50">
*Street: (inc. House Name or Number) " id="Street" size="25">
*Town/City: " id="Town" size="25">
*County/State/Province/Canton: " id="County" size="25">
*Country:
*Post/Zip Code: " id="PostCode" size="25">
*Contact Telephone: (You must complete one telephone number)
    Home: " id="HomeTel" size="25">
    Work: " id="WorkTel" size="25">
   Mobile : " id="MobileTel" size="25">
Fax: " id="Fax" size="25">
*Email: " id="Email" size="25" maxlength="50">
*I am a:

Registration is confidential, details will not be disclosed without prior authority.

*Please ascertain, if possible from makers, the number of the gun you require as it does not necessarily follow that it is consecutive to the above number.

All material on this site © Matched Pairs Limited, 2003. Terms & Conditions. Website maintained by MayburyIT.co.uk.
<% end sub %>