ASP and SQL problem with sessions - Lose server temporarily.

We have a site w/shopping cart on Verizon's MySuperpages.com (don't ask). It was on Verizon (there's a difference appearently).

I didn't write it but I gotta fix it. On the new server when you go to the main page, index.asp, sometimes it doesn't come up and sometimes it does. Don't know if has anything to do with people using the cart or not.. I don't imagine there are more than 2 or 3 (if any) people on at any one time.  Code below:

index.asp basically says

include   SQL.asp   at the very top (which is also on all of the other pages)
include   links.asp
some html bs

and the SQL.asp is as follows, i think this is where the prob is.

SQL.asp (please remember i didn't write this, but could this asp be locking up the server intermittantly?)

<%

connectionInfo = "Provider=SQLOLEDB;UID=XXXXXX;PWD=XXXXX;Data Source=XX.XXX.XXX.XXX;"
'connectioninfo = "Provider=SQLOLEDB;UID=Matt;PWD=XXXXXX;Data Source=dsorce;Initial Catalog=WEBDB"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString=connectionInfo
Conn.Open

If session("ID") = "" Then
'*******************************************************      
'This sections returns the new Session ID

      cmdText = "Select * From primary_key"
      set rs = server.CreateObject("ADODB.recordset")
      rs.open cmdText, conn
      session("ID") = rs("sessions")      
      set rs = nothing
'******************************************************
'This section updates the new ID in the primary key table

      cmdText = "Select * From primary_key "
      set rs = server.CreateObject("ADODB.recordset")
      With rs
            .ActiveConnection = conn
          .CursorType = 2 'adOpenDynamic
          .LockType = 3 'adLockOptimistic
            .Open cmdText
      End With
      rs("sessions") = session("ID") + 1
      rs.update
      set rs = nothing      
'**********************************************************
'This is where the timestamp and ID gets set in the temp_IDs

      cmdText = "Select * From temp_IDs"
      set rs = server.CreateObject("ADODB.recordset")
      With rs
            .ActiveConnection = conn
          .CursorType = 2 'adOpenDynamic
          .LockType = 3 'adLockOptimistic
            .Open cmdText
      End With
      rs.addnew
      rs("ID") = session("ID")
      rs("timestamp") = Date
      rs.update
      set rs = nothing      
'********************************************************
'Here I check to see if the session number is more than
'1 day old and if it is I will delete it from the DB.

      cmdText = "Select * From temp_IDs"
      set rs = server.CreateObject("ADODB.recordset")
      rs.open cmdText, conn
      
      Do While not rs.eof
            strDateDiff = DateDiff("d",rs("timestamp"),Date)
            If strDateDiff > 1 Then
                  cmdText = "Delete From orders Where SessionID = " & rs("ID")
                  set rsDelete = server.CreateObject("ADODB.recordset")
                  rsDelete.open cmdText, conn
                  set rsDelete = nothing

                  cmdText = "Delete From addresses Where ID = " & rs("ID")
                  set rsDelete = server.CreateObject("ADODB.recordset")
                  rsDelete.open cmdText, conn
                  set rsDelete = nothing

                  cmdText = "Delete From payment Where ID = " & rs("ID")
                  set rsDelete = server.CreateObject("ADODB.recordset")
                  rsDelete.open cmdText, conn
                  set rsDelete = nothing
                  
                  cmdText = "Delete From userinfo Where ID = " & rs("ID")
                  set rsDelete = server.CreateObject("ADODB.recordset")
                  rsDelete.open cmdText, conn
                  set rsDelete = nothing

                  cmdText = "Delete From temp_IDs Where ID = " & rs("ID")
                  set rsDelete = server.CreateObject("ADODB.recordset")
                  rsDelete.open cmdText, conn
                  set rsDelete = nothing
            End If
            rs.movenext
      Loop
      set rs = nothing


      session("REFER") = request.servervariables("HTTP_REFERER")
      session("ADDR") = request.servervariables("REMOTE_ADDR")      
      Session.Timeout = 120
      
'      cmdText = ""
'      set rs = server.CreateObject("ADODB.recordset")
'      rs.open cmdText, conn
      
      
      
End If
%>