<%@LANGUAGE="VBSCRIPT"%> DIDSBURY VILLAGE, EAST DIDSBURY AND WEST DIDSBURY - FREE BUSINESS LISTINGS DIDSBURY FINANCIAL SERVICES AND MORTGAGE ADVICE DIDSBURY SOLICITORS AND CONYENCING SERVICES DIDSBURY LETTING AGENTS AND PROPERTY TO LET DIDSBURY ESTATE AGENTS AND PROPERTY AGENTS HOUSES, HOMES, APARTMENTS AND FLATS FOR RENT IN DIDBURY MANCHESTER HOUSES, HOMES, APARTMENTS AND FLATS FOR SALE IN DIDBURY MANCHESTER WEBSITE FROM £199 FOR DIDSBURY BUSINESSES DIDSBURY BUSINESS SERVICES FROM THE PROUD NETWORK TEAM FREE EMAIL SERVICES FOR DIDSBURY BUSINESSES ADD YOUR BUSINESS TO DIDSBURY BUSINESS INDEX DIDSBURY BUSINESS INDEX SHOPPING ONLINE IN DIDSBURY AND HOME DELIVERY SERVICES SPECIAL OFFERS FROM DIDSBURY SHOPS AND BUSINESSES SHOPPING IN DIDSBURY - A TO Z SHOPPING INDEX DIDSBURY LOCAL ONLINE AUCTION - FREE SERVICE DIDSBURY CLASSIFIED ADVERTISING, JOBS, PROPERTY, COLLECTABLES, ELECTRICAL, CARS AND BIKES, WANTED ETC - FREE SERVICE DIDSBURY CLUBS, EXERCISE CLASSES AND COURSES DIDSBURY COMMUNITY FORUM AND MESSAGE BOARD DIDSBURY RESTAURANTS, EATERIES, FOOD SHOPS, ARTICLES AND RECIPES DIDSBURY CINEMA LISTINGS, FILM NEWS AND REVIEWS ADD YOUR EVENTS TO THE DIDSBURY WHAT'S ON AND ENTERTAINMENT GUIDE WHAT'S ON AND ENTERTAINMENT GUIDE FOR DIDSBURY
DIDSBURY HOMES AND PROPERTY PLUS ALL RELATED SERVICES. CLICK HERE TO LOCK THIS MENU. DIDSBURY BUSINESS INDEX AND BUSINESS SERVICES. CLICK HERE TO LOCK THIS MENU. DIDSBURY SHOPPING AND RETAILER INDEX. CLICK HERE TO LOCK THIS MENU.
DIDSBURY HOME PAGE
A-Z Listings | Add business | Edit business details | Get free email account | Maps | Search listings

<% 'dimension variables dim formError, blankFieldError, emailError, passwordError, usernameError, strSQL, page, busType page = Request.ServerVariables("Script_name") formError = false blankFieldError = false emailError = false passwordError = false usernameError = false 'first, test to see if this request is from a submission.. if request.Form("submission") = "1" then '..it is so we must process and save the data to the database 'Ensure all mandatory fields have values. 'Checks are: ensuring email address looks valid 'Removing "http://" from website addresses 'Ensure the user name has not already been taken 'Ensure both password fields contain the same string 'As of 19 May 03, allows user to add information to different locations, represented by 'different tables in the database. Therefore, first thing to do is determine which table 'we are dealing with dim objRSLoc, siteTableName, siteName set objRSLoc = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT business_table, name FROM sites WHERE id =" & Trim(Request.Form("location")) strSQL = strSQL & " ORDER BY name;" objRSLoc.Open strSQL, MM_business_list_STRING, adOpenForwardOnly,adLockReadOnly, adCmdText objRSLoc.MoveFirst siteTableName = objRSLoc("business_table") siteName = objRSLoc("name") objRSLoc.Close set objRSLoc = nothing 'Start with blank fields if (Trim(Request.Form("busname")) = "") or (Trim(Request.Form("address1")) = "") or (Trim(Request.Form("address2")) = "") or (Trim(Request.Form("address3")) = "") or (Trim(Request.Form("address4")) = "") then blankFieldError = true formError = true end if if (Trim(Request.Form("postcode5")) = "") or (Trim(Request.Form("timesopen")) = "") or (Trim(Request.Form("daysopen")) = "") or (Trim(Request.Form("telephone")) = "") or (Trim(Request.Form("contact")) = "") then blankFieldError = true formError = true end if if (Trim(Request.Form("email")) = "") or (Trim(Request.Form("position")) = "") or (Trim(Request.Form("yearstrading")) = "") or (Trim(Request.Form("furtherinfo")) = "") then blankFieldError = true formError = true end if if (Trim(Request.Form("username")) = "") or (Trim(Request.Form("password1")) = "") or (Trim(Request.Form("password2")) = "") then blankFieldError = true formError = true end if 'check e.mail address is valid dim emailAddress emailAddress = Trim(Request.Form("email")) 'e.mailAddress must contain an @ symbol and at least one period after it dim atLocation atLocation = InStr(emailAddress, "@") if atLocation <> 0 then 'get the string after the @ symbol dim afterAt afterAt = Right(emailAddress, (Len(emailAddress) - atLocation)) dim periodLocation periodLocation = InStr(afterAt, ".") if periodLocation = 0 then formError = true emailError = true end if else formError = true emailError = true end if 'ensure the user name is free 'to do this, we must check the database Dim objRSCheckUsername, objCmdCheckUsername Set objRSCheckUsername = Server.CreateObject("ADODB.Recordset") Set objCmdCheckUsername = Server.CreateObject("ADODB.Command") objCmdCheckUsername.ActiveConnection = MM_business_list_STRING objCmdCheckUsername.CommandText = "SELECT user_name FROM " & siteTableName & " WHERE user_name = '" & Trim(Request.Form("username")) & "'" objCmdCheckUsername.CommandType = adCmdText objRSCheckUsername.open objCmdCheckUsername 'if the recordset is not empty, the user name has already been used if not objRSCheckUsername.EOF then usernameError = true formError = true end if 'close database connection objRSCheckUsername.Close Set objRSCheckUsername = Nothing set objCmdCheckUsername = Nothing 'check passwords match if Trim(Request.Form("password1")) <> Trim(Request.Form("password2")) then passwordError = true formError = true end if if formError = false then 'The information is fine, so save to database 'ensure all URLs are saved without http:// dim strURL strURL = Trim(Request.Form("url")) if ((InStr(strURL, "http://") <> 0) OR (InStr(strURL, "HTTP://") <> 0)) then strURL = Right(strURL, (Len(strURL) - 7)) end if 'get the text for the business type Dim objRSbusType, objCmdbusType Set objRSbusType = Server.CreateObject("ADODB.Recordset") Set objCmdbusType = Server.CreateObject("ADODB.Command") objCmdbusType.ActiveConnection = MM_business_list_STRING objCmdbusType.CommandText = "SELECT type_name FROM business_types WHERE type_id = '" & Trim(Request.Form("bus_type")) & "'" objCmdbusType.CommandType = adCmdText objRSbusType.open objCmdbusType busType = objRSbusType("type_name") objRSbusType.Close set objRSbusType = nothing set objCmdbusType = nothing strSQL = "INSERT INTO " & siteTableName strSQL = strSQL + " (business_name, address1, address2, address3, address4, postcode, " strSQL = strSQL + "web_address, trade_hour, trade_days, telephone, fax, corr_name, email_address, " strSQL = strSQL + "corr_pos, trade_years, notes, active, type_id, business_type, user_name, password) VALUES (" strSQL = strSQL + "'" & Trim(Request.Form("busname"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("address1"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("address2"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("address3"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("address4"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("postcode5"))& "', " strSQL = strSQL + "'" & strURL & "', " strSQL = strSQL + "'" & Trim(Request.Form("timesopen"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("daysopen"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("telephone"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("faxno"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("contact"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("email"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("position"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("yearstrading"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("furtherinfo"))& "', " strSQL = strSQL + "0, " strSQL = strSQL + "" & Trim(Request.Form("bus_type")) & ", " strSQL = strSQL + "'" & busType & "', " strSQL = strSQL + "'" & Trim(Request.Form("username"))& "', " strSQL = strSQL + "'" & Trim(Request.Form("password1"))& "'" strSQL = strSQL + ")" 'open database connection Dim objConn Set objConn = Server.CreateObject("ADODB.Command") objConn.ActiveConnection = MM_business_list_STRING objConn.CommandText = strSQL objConn.CommandType = adCmdText objConn.Execute 'save data 'close database connection Set objConn = Nothing 'send confirmation email dim objCdoMail, strEmail strEmail = "The business '" strEmail = strEmail & Trim(Request.Form("busname")) strEmail = strEmail & "' has been added to the " & siteName & " database under the " strEmail = strEmail & Trim(Request.Form("bus_type")) strEmail = strEmail & " category. " set objCdoMail = Server.CreateObject("CDONTS.NewMail") With objCdoMail .From = "businesslist@proud2belocal.co.uk" .To = "ian@mowmow-design.co.uk" .Subject = "Business added to " & siteName & " database" .Body = strEmail .Send End With set objCdoMail = nothing 'render confirmation message and end script %> Business data submitted

Thank you for submitting your business listing on P2BL. As always, we appreciate your support and hope we can help spread the word about your business by making your details available 24 hours, 7 days a week.

Editing and updating your listing
Visit the "Edit business details" page to update your information.

Help using this service
Don't hesitate to contact us if you need any further information regarding P2BL services.
Please ensure you check the details of your listing within the next 48hrs.

Add your business to other categories
If you wish to have your business listed under other categories you must contact the Webmaster.

Click here to continue using the site

<% Response.End() 'called if the form was submitted successfully end if end if 'if we get here without calling Response.End(), the form needs rendering %>
 
add your business listing to Proud2beLocal
Remember
It's free to add your business to our database. Your entry will appear under your selected category but if you would like to be added to multiple categories, please contact us for assistance.

Editing your details
You can change the details of your entry by visiting the 'Edit business details' page. You'll need your user name and password as entered in this form, so please keep them safe.

Notes for completing this form
Please complete all fields including the 'Further info' box at the bottom of the form. You should add a clear description of your business here and it can also be used to tell us about offers and special services you can provide.

There is no limit to the amount of text you can add to generate your web page; look at some of the other listings for ideas.

Don't have a website address
If you do not have a website URL or email, please enter 'none'.

<% if formError then 'render error message Response.Write("

There were errors in the information you supplied. ") Response.Write("

Please ensure the correct business category is still selected") Response.Write(" and correct the errors ") Response.Write("listed.

") end if Response.Write("
    ") if blankFieldError then Response.Write("
  • All fields except Fax No. and Website URL are required.
    • ") end if if emailError then Response.Write("
  • The E-mail address you have supplied doesn't seem to be valid.
    • ") end if if usernameError then Response.Write("
  • The user name you have specified has already been used or is not valid (eg blank). Please choose another.
    • ") end if if passwordError then Response.Write("
  • The passwords you give must be identical.
    • ") end if Response.Write("
") %>
Select a category for your business
Select a location for your business
 
Name of business
 ">
Building name/number
 ">
Street
 ">
Town
 " size="30">
County
 ">
Postcode
 ">
 
Do you have a website? - If yes, your URL address. (if none enter 'none') ">
 
Trading Hours
 ">
Trading Days
 ">
 
Telephone No.
">
Fax No. (optional)
 ">
Name for correspondence
 ">
E-mail address (If no enter 'none')
 ">  
Position in business
 ">
 
No. of years trading
 ">
User Name
 ">
Password
Confirm Password
Further information section (this must be completed)

Please use the space below to tell us about your business. For example: special offers, any special services you provide? What unusual lines do you carry? If you run a restaurant or take-away, what are your specialities?

Any information added here will form the main content for your individual web page. If you do not wish to add information at this time you can enter 'More information soon' or something similar.

When you have new information, simply login using the 'Edit business details' link and enter your information. You can update this section as often as you wish.

Visit the Andy Cole Childrens Foundation website Didsbury Beer and Sport THE DEFINITIVE GUIDE TO DIDSBURY HOMES AND PROPERTY COMING SOON... DIDSBURY LIVING Didsbury Food and Drink section WHAT'S ON IN DIDSBURY Didsbury Property Section