O NOSSO SITE
Porque muitas vezes ficamos na dúvida, a nossa equipa lançou este SITE para ajudar no desempenho da sua função, num exame, num trabalho, ou...
Consultadoria via Internet
Notícias
31-05-2012 19:56
—————
Tópico: Página inicial
Não foram encontrados comentários.
msn.com
<%
dim oConn,rs,sel
Sub Conecta()
Set oConn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
oConn.Provider="Microsoft.jet.oledb.4.0"
oConn.ConnectionString=Server.Mappath("seubancodedados.mdb")
oConn.open
End Sub
Sub Desconecta()
rs.close
oConn.close
set rs=nothing
set oConn=nothing
End Sub
%>
