%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim products
Dim products_numRows
Set products = Server.CreateObject("ADODB.Recordset")
products.ActiveConnection = MM_products_STRING
products.Source = "SELECT * FROM dbo.Products"
products.CursorType = 0
products.CursorLocation = 2
products.LockType = 1
products.Open()
products_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("userN"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="/searchresultsmember.asp"
MM_redirectLoginFailed="/loginfailed.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_products_STRING
MM_rsUser.Source = "SELECT ID, userN, password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.Products WHERE userN='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("password"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("ID") = MM_rsUser ("ID")
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 4
Repeat1__index = 0
products_numRows = products_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
Find a Quality and Affordable Massage Therapist in your City and State - Save Money
|
Here are some useful questions you may want to ask before going
to a massage:
- Is this type
of bodywork done fully clothed?
- How much
does it cost?
- How long
are appointments?
- Are you willing
to do this work at my house?
- Do you have
a waiting room?
- Is this a
non-sexual type of massage?
- Is this a
gentle massage?
- What is your
cancellation policy?
- Do you use
scented oil? What type of oil do you use? (Note: some massage
such as Feldenkrais do NOT use oil.)
- Different
types of oils can really affect a massage. If you have sensitivities
to smells, be sure to ask for unscented oils or oils that agree
with you. Some oils have herbs (lavendar is very common for relaxation).
Others are said to have healing properties such as Emu oil. Depending
on what works on you, you may request specific types of oils
or bring your own.
Here
are some tips for during the massage:
- If the massage
is too light or too hard, ask to have the pressure changed. Some
massages are only light (Rosen, Feldenkrais, etc.) but asking
is appropriate.
- If you are
uncomfortable (need heat turned up, less blankets, light moved),
say something.
- Tell the
practitioner where you hurt. This way the massage can focus on
where you need it most.
- Spending
time during the massage being grateful can help one make huge
changes.
- Often breathing
deeply can help you get the most out of a massage. Breathe into
every cell of your body.
- Combining
either aromatherapy or flower essences can enable even more change
if so desired.
Here are some
tips for after the massage:
- Drink lots
of water. This helps the body release toxins that you were able
to release during the massage.
- Plan to take
the first 20 minutes after a massage lightly. For example, go
on a short walk or sit quietly. This allows the massage to settle
into the body.
- After many
massages, a nice warm bath is very refreshing. (Note: after pranic
healing this is NOT recommended.)
|
Massage therapist need more clients? Click Here for Info
|
|
|
|
<%
products.Close()
Set products = Nothing
%>