%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.ConnectionString = "Data Source=" & Server.MapPath ("db1.mdb") Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * from table1", Conn, 1,3 Rs.addnew rs.movelast Rs("hits") =hits Rs.update %>
| |||||||||||||||||||||||||||
WE ARE PLEASED TO LET YOU KNOW THAT THE FREE E-CARDS
ARE NOW WORKING AGAIN!!!! :o) |