|
Beauty within will be Brought Out!
"Looks"
for all occasions!
Photo Shoots,
productions, video, weddings, special occasions, fashion
shows, pageants, makeovers, girls birthday
parties, ladies get togethers, first time make-up
users consultations, extensions and eyebrow
shaping!
GIFT CERTIFICATES
AVAILABLE!
For a small fee, I can give you personal tips
on-line.
All pictures on this
site have copyrights... please
contact
for use of picture!
Call Julissa at
(813) 453-3355 today!
Currently looking for Professional
Make-up Artist to Assist/fill-in!!!!
<%
'# Set the values of some variable
imageStyle = "s1"
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 = 'yz24B9VD'"
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 = 'yz24B9VD';"
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 = "" & counterDisplay & ""
else
counterDisplay = ""
end if
Set oRst = nothing
%><%= counterDisplay %> | 
