<%@LANGUAGE="VBSCRIPT"%> <% if request.querystring("debug") <> "" then response.redirect"register_action.asp?debug=true" end if %> <% on error resume next set RSReg = Server.CreateObject("ADODB.Recordset") RSReg.ActiveConnection = dbpath RSReg.Source = "SELECT * FROM configSys WHERE id = 1" RSReg.CursorType = 0 RSReg.CursorLocation = 2 RSReg.LockType = 3 RSReg.Open() RSReg_numRows = 0 %> Register Your Details <% if err.number <> 0 then %>
For Your Information !!

There has been an error with our Database system ,Please try again at another time or contact the webmaster here .

If you are the webmaster ,<%=err.description & err.number%>

<% else %>


Register for Karaokelistings.com  -  list your website, edit your own listing, list contest or service

This feature is temporarily downPlease Note- Fields marked with a * are required.  Already a member? login
Also you must read agreement


<% if (RSReg.Fields.Item("Birth_Date_Coll").Value)= true then %> <% end if %> <% if (RSReg.Fields.Item("Address_L1_Coll").Value)= true then %> <% end if %> <% if (RSReg.Fields.Item("Zip_Post_Coll").Value)= true then %> <% end if %> <% if (RSReg.Fields.Item("Home_Phone_Coll").Value)= true then %> <% end if %> <% if (RSReg.Fields.Item("Cell_Mobile_Coll").Value)= true then %> <% end if %> <% if (RSReg.Fields.Item("Fax_Coll").Value)= true then %> <% end if %> <% if (RSReg.Fields.Item("Extra_1_coll").Value)= true then %> <% end if %> <% if (RSReg.Fields.Item("Extra_2_coll").Value)= true then %> <% end if %>
Membership Details
<%=request("error")%>
Choose a Username
*
Choose a Password
*
Your Email
*  
Personal Details
Your Full Name
<%if (RSReg.Fields.Item("Full_Name_Reg").Value) = True then %> *<% end if %>
Date Of Birth
<%if (RSReg.Fields.Item("Birth_Date_Req").Value) = True then %> *<% end if %>
Your Address
<%if (RSReg.Fields.Item("Address_L1_Req").Value) = True then %> *<% end if %>
<% if (RSReg.Fields.Item("Address_L2_Coll").Value)= true then %> <%if (RSReg.Fields.Item("Address_L2_Req").Value) = True then %> *<% end if %>
<% end if %> <% if (RSReg.Fields.Item("Address_L3_Coll").Value)= true then %> <%if (RSReg.Fields.Item("Address_L3_Req").Value) = True then %> *<% end if %>
<% end if %>
Your Post Code / Zip
<%if (RSReg.Fields.Item("Zip_Post_Req").Value) = True then %> *<% end if %>
Contact Phone Number
<%if (RSReg.Fields.Item("Home_Phone_Req").Value) = True then %> *<% end if %> Please include any extension numbers if needed
<%if (RSReg.Fields.Item("Cell_Mobile_Req").Value)= True then %> *<% end if %>
Fax Phone Number
<%if (RSReg.Fields.Item("Fax_Req").Value)= True then %> *<% end if %>
<%=trim(RSreg("Extra_1_name"))%>
<%if (RSReg.Fields.Item("Extra_1_Req").Value)= True then %> * <% end if %>
<%=trim(RSreg("Extra_2_name"))%>
<%if (RSReg.Fields.Item("Extra_2_Req").Value)= True then %> * <% end if %>
 

 

<% end if RSReg.Close() %>