<%
nId = Request("ID")
if nId = "" then
nId = 1
end if
ConnString="DBQ=e:\home\vacinas\dados\vacinas.mdb;Driver={Microsoft Access Driver (*.mdb)}"
'ConnString="DBQ=d:\inetpub\wwwroot\vacinas\vacinas.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnString
'*******************************************
'* Abre Tabela de Polêmicas - Cadastros
'*******************************************
sql = "SELECT * FROM TabelaSmithkline WHERE ([ID] = " & nId & ") ORDER BY TITULO;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
Vacinas.org.br
Como
adquirir nosso CDROM
EPUB
- Editora de Publicações Biomédicas Ltda. Rua
Major Suckow, 30a 36 - Rocha, Rio de Janeiro CEP: 20.911-160
Tel: (021) 501-3722 - Fax: (021) 261-3749
Pedidos: 0800-253722 ou E-mail: epub@epub.com.br
