% public tHID dim Con dim db set Con=Server.CreateObject("ADODB.Connection") db=Server.Mappath("dbZTCC.mdb") Con.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";" Con.open %>
|
Home | Objectives | Rules(Liver) | Rules(Kidney) | FAQ's | Add Film | Constitution |
||
|
||
copyright At
All Reserved. Design By :Skynettec.com Pvt. Ltd.
<%
dim RS
dim FS
dim PS
dim fcount
Set FS=server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("Counter.txt"),1,False)
fcount=Rs.ReadLine
RS.Close
%>
<%Response.Write(fcount)%>
<%
fcount=fcount+1
Set PS=FS.OpenTextFile(Server.MapPath("Counter.txt"),2,false)
PS.Write fcount
PS.Close
set RS=nothing
set FS=nothing
%>
|