| MY
PORTFOLIO
|
No. Of Visitors: <%=strVis %>
| |
|||||
|
|||||
|
|||||
|
<%
Dim RS,strVis
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "Select * from cou",Conn
strVis = RS(0)
RS.Close
If Not Session("Voted") then
Conn.Execute "Update cou Set co=" & strVis + 1
Session("Voted") = True
End If
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
No. Of Visitors: <%=strVis %> |
|||||
| ©Copyright 2003 www.irfan.tk & www.irfan.rocks.it | |||||