Tips & Hints -
A collection of tips & hints from buying a BMW
to riding, packing for a trip, and more!
The Newsletter! -
In my previous
website, I had included a link to sign up
for my monthly newsletter. It is back,
starting with the month of November.
Check the FAQs for
more info. |
<%
Dim strCurrentPageName
strCurrentPageName = Right(Request.ServerVariables("SCRIPT_NAME"),
Len(Request.ServerVariables("SCRIPT_NAME"))1)
Dim iCount, path, fso, filename, target
iCount = 0 : path = "."
Set fso = CreateObject("Scripting.FileSystemObject")
filename = Server.MapPath(path + "/generator/show.asp")
target=filename
Do While fso.FileExists(filename) = False And iCount < 101
path = fso.GetParentFolderName(fso.GetParentFolderName(filename))
target = fso.GetParentFolderName(path) + "\generator\show.asp"
filename = target
iCount = iCount + 1
Loop
If iCount = 100 then
response.write "Sorry, we can not locate core functions. Program terminated"
Else
target = replace(replace(target,Server.MapPath("/"), ""), "\", "/")
Response.Cookies("showurl") = strCurrentPageName
Response.Cookies("showback") = replace(target, "show.asp", "")
Server.Execute(target)
End If
%>
Sign up for the Newsletter!
Tips, hints, product reviews before they get placed on the website.
IMS (International
Motorcycle Show)... one for the books! Read about it here.
What this site is about -
This site is dedicated to my Customers. It is here as a resource for
you, and should reflect what you are interested in knowing. The
only way this web site can be of service to you, is by you letting me know what it
is you want to view here.
Thank you,
Steven Banks
Wanted!
Do you have ride
stories, photos, product reviews that you would like to submit to
the BanksBMW.com newsletter? If you would like to assist in helping
make the newsletter better, email me with your story and I will
include it in the next newsletter. If you want a photo to go with
the story, email that to me also as an attachment.
|
