Guest_imported
New member
- Jan 1, 1970
- 0
my connection is all wrong how do i fix this?
Session.timeout = 60
If IsObject(Session("cpedis1_conn") Then
Set conn = Session("cpedis1_conn"
Else
Set conn = Server.CreateObject("ADODB.Connection"
conn.open "driver=SQL
Server;server=cpmicro1;UID=laker; PWD=zoloft;database=30c"
Set Session("cpedis1_conn" = conn
End If
%>
<%
If IsObject(Session("Equipment_Listing_rs") Then
Set rs = Session("Equipment_Listing_rs"
Else
sql = "SELECT * FROM [Equipment Listing]"
Set rs = Server.CreateObject("ADODB.Recordset"
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Equipment_Listing_rs" = rs
End If
%>