We Make Housecalls We provide convenient and cost-effective solutions for all of your PC and Networking issues. There is no need to experience the inconvenience of bringing your equipment to a service depot. Whether you are a business or residential customer, we recognize that your time is valuable, and even the smallest problem can be an emergency. That's why we come to YOU. Your PC medic services Buffalo, New York and the surrounding areas including Niagara and Wyoming counties. 
We specialize in troubleshooting both hardware and software problems. We can also assist with new PC installations, upgrading existing hardware and software, and performing general preventive maintenance to keep your PC running the way the manufacturer intended. Most of all, Your PC Medic is a sole-proprietorship. This means that EVERY time you call you will be speaking with the person that is able to address your problem. There are no middle-men, corporate policies, or service-contracts to stand in the way of you receiving the best service possible. For fast friendly service, send us an email at service@ yourpcmedic.net or call our business line. Normal Business Hours Mon-Fri 9am thru 5 pm After hours service available with appointment Call Your PC Medic
at (716) 583-0529 today!
<%
'# Set the values of some variable
imageStyle = "s3"
serverPath = "http://plugins.websitecomplete.com/wsc_images"
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 = 'DQN10WGmV'"
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 = 'DQN10WGmV';"
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 & "![](" & 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 %>
| 
