<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("lookwhos_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Updates", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(29) Dim arFormDBFields0(29) Dim arFormValues0(29) arFormFields0(0) = "Directions0" arFormDBFields0(0) = "Directions" arFormValues0(0) = Request("Directions0") arFormFields0(1) = "Contact_HomePhone" arFormDBFields0(1) = "Contact_HomePhone" arFormValues0(1) = Request("Contact_HomePhone") arFormFields0(2) = "Contact_Organization" arFormDBFields0(2) = "Contact_Organization" arFormValues0(2) = Request("Contact_Organization") arFormFields0(3) = "More_Information" arFormDBFields0(3) = "More_Information" arFormValues0(3) = Request("More_Information") arFormFields0(4) = "Experience" arFormDBFields0(4) = "Experience" arFormValues0(4) = Request("Experience") arFormFields0(5) = "Account_Username" arFormDBFields0(5) = "Account_Username" arFormValues0(5) = Request("Account_Username") arFormFields0(6) = "Personal_Sex" arFormDBFields0(6) = "Personal_Sex" arFormValues0(6) = Request("Personal_Sex") arFormFields0(7) = "Contact_Address2" arFormDBFields0(7) = "Contact_Address2" arFormValues0(7) = Request("Contact_Address2") arFormFields0(8) = "Contact_Title" arFormDBFields0(8) = "Contact_Title" arFormValues0(8) = Request("Contact_Title") arFormFields0(9) = "Contact_StreetAddress" arFormDBFields0(9) = "Contact_StreetAddress" arFormValues0(9) = Request("Contact_StreetAddress") arFormFields0(10) = "Contact_ZipCode" arFormDBFields0(10) = "Contact_ZipCode" arFormValues0(10) = Request("Contact_ZipCode") arFormFields0(11) = "Referred" arFormDBFields0(11) = "Referred" arFormValues0(11) = Request("Referred") arFormFields0(12) = "Personal" arFormDBFields0(12) = "Personal" arFormValues0(12) = Request("Personal") arFormFields0(13) = "Contact_Country" arFormDBFields0(13) = "Contact_Country" arFormValues0(13) = Request("Contact_Country") arFormFields0(14) = "Service_Level" arFormDBFields0(14) = "Service_Level" arFormValues0(14) = Request("Service_Level") arFormFields0(15) = "Contact_Email" arFormDBFields0(15) = "Contact_Email" arFormValues0(15) = Request("Contact_Email") arFormFields0(16) = "References" arFormDBFields0(16) = "References" arFormValues0(16) = Request("References") arFormFields0(17) = "Contact_FirstName" arFormDBFields0(17) = "Contact_FirstName" arFormValues0(17) = Request("Contact_FirstName") arFormFields0(18) = "Contact_City" arFormDBFields0(18) = "Contact_City" arFormValues0(18) = Request("Contact_City") arFormFields0(19) = "Hours" arFormDBFields0(19) = "Hours" arFormValues0(19) = Request("Hours") arFormFields0(20) = "Personal_DateOfBirth" arFormDBFields0(20) = "Personal_DateOfBirth" arFormValues0(20) = Request("Personal_DateOfBirth") arFormFields0(21) = "Account_Password" arFormDBFields0(21) = "Account_Password" arFormValues0(21) = Request("Account_Password") arFormFields0(22) = "Contact_FAX" arFormDBFields0(22) = "Contact_FAX" arFormValues0(22) = Request("Contact_FAX") arFormFields0(23) = "Certifications" arFormDBFields0(23) = "Certifications" arFormValues0(23) = Request("Certifications") arFormFields0(24) = "Account_PasswordConfirm" arFormDBFields0(24) = "Account_PasswordConfirm" arFormValues0(24) = Request("Account_PasswordConfirm") arFormFields0(25) = "Contact_WorkPhone" arFormDBFields0(25) = "Contact_WorkPhone" arFormValues0(25) = Request("Contact_WorkPhone") arFormFields0(26) = "Contact_State" arFormDBFields0(26) = "Contact_State" arFormValues0(26) = Request("Contact_State") arFormFields0(27) = "Contact_LastName" arFormDBFields0(27) = "Contact_LastName" arFormValues0(27) = Request("Contact_LastName") arFormFields0(28) = "Contact_URL" arFormDBFields0(28) = "Contact_URL" arFormValues0(28) = Request("Contact_URL") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "confirmation.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Update
 
 

 

    Home       Add Listing       Update Listing      Post a Job        Resources       F.A.Q.       Comtact Us       Store
 

 

Account Update

 

To update your account with us fill out the following form.  Your account will be updated within 48 hours.

 <% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Dim fp_Debug fp_Debug = False Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select If fp_Debug Then strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" Else strError = "Cannot save value to database field" End If FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_EncodeOutput(str) FP_EncodeOutput = str FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^") FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput) FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&") End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & FP_EncodeOutput(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For j = 0 To UBound(rgDBFields) - 1 Response.Write "" & rgDBFields(j) & "" & ": " & FP_EncodeOutput(rgDBValues(j)) & "
" & vbCrLf Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) On Error Resume Next Dim fp_Debug fp_Debug = False If Err.Number <> 0 Then fp_conn.Close Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & Server.HTMLEncode(strMsg) & "

" if fp_Debug Then Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "

" Response.Write "Error Number: " & Server.HTMLEncode(Err.Number) & "

" Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "

" End If Response.End End If End if End Function %>

Contact Information

  

First Name

Last Name

Title

Organization

Street Address

Street Address (cont.)

City

State/ Providence (abbreviation only)

Zip/ Postal Code

Country

Daytime Phone Number

Evening Phone Number

Fax Number

Email Address

URL (http://www.yoursite.com)

Date of Birth (ex: 01/01/04)

 *

Gender

 Male Female

 

Account Information

  

User Name

 *

Password

 *

Confirm Password

 *

 

How did you hear about us

Select one

 *

If Other, please specify

 *

 

Educational Information

Personal Biography (Enter information about your abilities and teaching methods)

Experience (Tell users about your level of experience in the skills you have identified)

Certifications (List any certification titles you have received)

References (Give a few names and numbers of current or past students / Clients)

Hours (List the hours you are available to teach)

Directions (Provide directions to the location you will teach from)
 

 
   

 
 
 
 


 
 

 

Find a Coach
 

Enter City

" size="19">
 

Enter State

(For US, enter abbreviation)

" size="19">

 

Enter Country

 
 
 

Students:

If you do not find a tennis coach in your area, you can register yourself on the site so that when one comes available they can contact you!

î Start Your Search!

  

Coaches:

There are many levels available for our teachers and coaches to become listed in our database.  Our free listing is great for everyone.  In addition, our paid services give your listing high priority and allow you to tell more about your self!

î Get Started Today!

  

  

Home  -  Contact Us  -  Site Map  -  About Us


Register your domain, build
 your website and set up your
e-mail today.
http://www.obizhost.com