|
|
||||||||||||||||||||||
|
|
||||||||||||||||||||||
|
|
||||||||||||||||||||||
|
||||||||||||||||||||||
|
|
||||||||||||||||||||||
|
| Home | Services | Doctors | People | Mediclaim | Patient Education | Photo Gallery | Contact us | For more detail please email us info@drgandhi.org |
||||||||||||||||||||||
|
Site designed by R. P. Technology |
||||||||||||||||||||||
% 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Nisiki\Projects\nisiki.net\nisiki.mdb;Persist Security Info=False Dim Conn Dim Rst Dim SQL Dim mVisitor Set conn = server.createobject("ADODB.Connection") Set Rst = server.createobject("ADODB.Recordset") SQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data.mdb") & ";Persist Security Info=False" Conn.Open sql sql ="Select * from srno" rst.open sql,conn,3,3 rst.movefirst mvisitor = rst("srno") + 1 rst("srno") = mvisitor rst.update response.write "
" rst.close set rst = nothing conn.close set conn = nothing %>