|
Welcome to
Cajun
Smile!!! 
photo by Sal Shoots
Read
and browse on to learn more about Mark Stoltz's passion for the
cajun/zydeco/creole traditions and culture of southern
Louisiana. For fun he dances, he cooks, he plays the
music. For love of his art he lectures, he instructs, he makes
the culture come alive for others. Look around to see what he
has to offer. If you don't find what you're looking for.....
let him
know!
Click here to see Mark featured in the Traverse City
Record Eagle.
Click here to for information about Mark as Special Guest rubboard
player for Corey Ledet and His Zydeco Band at the Riverfolk Festival in August (the day between his performances with K Jones & the Benzie Playboyz at the Dunegrass Festival).
And
remember...
Dance Like No One Is
Watching!!
This site is best viewed
with a resolution of 1024x768 or better...
so if pictures or text
in this site overlap, or...
if the question mark is over this
text, click here.
if the
question mark is over this text, click
here.
if the question mark is over this text, click
here.
<%
'# Set the values of some variable
imageStyle = "s2"
serverPath = "//plugins.websitecomplete.com/wsc_images"
protocol = "http:"
If ucase(Request.ServerVariables("HTTPS")) = "ON" Then protocol="https:"
DataSource = "FileDSN=c:\winnt\system32\dsn\plugins.dsn"
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open DataSource
'# grab all their records to see what they have to offer
sqlQuery = "SELECT current_value FROM hitcounter WHERE pluginID = 'hUZNXElo'"
Set oRst = DataConn.Execute(sqlQuery)
if not oRst.eof then
counterNumber = CLng(oRst("current_value"))
if Session("Counted") = "" then
counterNumber = counterNumber + 1
'#update the current value in the database
sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'hUZNXElo';"
DataConn.Execute(sqlQuery)
DataConn.close
Set DataConn = nothing
Session("Counted") = true
end if
counterNumber = "0000000000" & counterNumber
counterNumber = right(counterNumber,8)
counterDisplay = ""
howLong = len(counterNumber)
for i=1 to howLong
thisNumber = mid(counterNumber,i,1)
counterDisplay = counterDisplay & "![](" & protocol & serverPath & "/" & imageStyle & "/" & thisNumber & ".gif) "
next
counterDisplay = "![](" & serverPath & "/" & imageStyle & "/endcap_left.gif) " & counterDisplay & "![](" & serverPath & "/" & imageStyle & "/endcap_right.gif) "
counterDisplay = "" & counterDisplay & ""
else
counterDisplay = ""
end if
Set oRst = nothing
%><%= counterDisplay %>
| 
