home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dialog / database.txt < prev    next >
Encoding:
Text File  |  1999-07-30  |  310 b   |  13 lines
  1. <% ID = 3 %>
  2.  
  3. <% 
  4. Set Conn = Server.CreateObject("ADODB.Connection")
  5. Set Rs = Server.CreateObject("ADODB.Recordset")
  6.     
  7. Conn.Open "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
  8.     
  9. SQL = "DELETE FROM tbl WHERE (fldAuto = " & ID & ")"
  10.     
  11. rs.Open SQL, Conn
  12. %>
  13.