<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Contacts</TITLE>
</HEAD>
<BODY>
<%
Session.timeout = 5
If IsObject(Session("\\base_conn")) Then
Set conn = Session("\\base_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "\\base","",""
Set Session("\\base_conn") = conn
End If
%>
<%
If IsObject(Session("Contacts_rs")) Then
Set rs = Session("Contacts_rs")
Else
sql = "SELECT * FROM [Contacts]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Contacts_rs") = rs
End If
Partager