Update Websites Links In Access Db

I'm trying to update an Access db: if link is ok, then status=up else status=down, in a form with 3 fields: names, link, status:

<%
Server.ScriptTimeout = 1500
%>

<%
Session.timeout = 1
If IsObject(Session("press_conn")) Then
Set conn = Session("press_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "press","",""
Set Session("press_conn") = conn
End If


sql = "SELECT names, status, link from websites order by names"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
rs.MoveFirst

Dim GotothisURL

Do Until rs.EOF
GotothisURL = rs("link")
Set GetConnection = CreateObject("Microsoft.XMLHTTP")
GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send
ResponsePage = GetConnection.responseText

if ResponsePage="" then
sql = "UPDATE (websites) set status=(offline) WHERE names = '"&rs("names")&"' AND link = '"&rs("link")&"'"
conn.Execute(sql)
else
sql = "UPDATE (websites) set status=(online) WHERE names = '"&rs("names")&"' AND link = '"&rs("link")&"'"
conn.Execute(sql)
end if

Set GetConnection = Nothing
Set ResponsePage = Nothing

rs.MoveNext

Loop

conn.close
set conn = nothing
rs.close
set rs = nothing
%>

I get no errors at all. The path to db is ok.

The script acts very very strange. On the first run, it seems that everything is ok, but the page freezes on half [the blue bar on bottom of browser]. If I'll stop the script, on the second run, the page loads very quick, but nothing happens.