%@LANGUAGE="VBScript"%> <% set dbtemp=server.createobject("adodb.connection") set dbrs=server.createobject("adodb.recordset") dbtemp.Cursorlocation=3 dbtemp.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("./db/contador.mdb")) SQL = "SELECT * FROM servicos" dbrs.open SQL, dbtemp cont= dbrs("num") dbrs.close SQL = "INSERT INTO servicos (num) VALUES ("&cont+1&")" SQL2 = "DELETE * FROM servicos" If session("servlogged")<>true then dbtemp.Execute(SQL2) dbtemp.Execute(SQL) End If session("servlogged")=true set dbtemp = nothing %>
![]() |
|||||||
|
H.T.
Imóveis Administração e Corretagem Ltda.
Rua Gavião Peixoto , 80, Grupo 501 - Icaraí - Niterói - RJ Tel: (21) 2717-2133 / Fax: (21) 2622-1694 |
|||||||
|
|
|
PROCURE
O SEU IMÓVEL
|
|
||||||||||||||||||||||||||||||