Untitled Document

<% Response.buffer=true %> Untitled Document <% Function OpenDBConn() Dim AdoConn Set AdoConn = Server.CreateObject("ADODB.Connection") AdoConn.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.Mappath("contact.mdb"), "", "" Set OpenDBConn = AdoConn End Function Dim myConnection Set myConnection = OpenDBConn SQL="SELECT * FROM Contact" Set Rs=myConnection.Execute(SQL) %> <% if Request.ServerVariables("Content_length")>0 Then call Condition_Check End if %>

<%=session("Status")%>

<% Rs.Close MyConnection.Close Set Rs=Nothing Set MyConn=Nothing %>

Company Name:
Contact Person:**
E-mail Address:**
Phone:
Fax:
Comments / Questions:**