Timeout expired

Hej

jeg har følgende kode:

<%
Server.ScriptTimeout = 1000

i = i + 7

strSQL = "SET DATEFORMAT DMY SELECT * FROM LINKS_FSH WHERE " & commonSQLType & " AND PUBLISH > '" & Date() & "' AND PICTURE NOT LIKE '%/grafik/henvisning/diverse/no_pic.gif%' ORDER BY PUBLISH"
set rs = dataConn.execute(strSQL)

while not (rs.eof or rs.bof)
    strSQL = "SET DATEFORMAT DMY UPDATE LINKS_FSH SET PUBLISH = '" & date() + round(i) & "' WHERE ID = " & RS("ID")
    RESPONSE.WRITE strSQL & "<BR>"
    dataConn.execute(strSQL)
.
.
.
%>

Den stopper ved den sidste linie (dataConn.execute(strSQL)) første gang den kommer til den. Og så skriver den:

Microsoft OLE DB Provider for SQL Server error '80040e31'
Timeout expired

Sql-strengen er:
SET DATEFORMAT DMY UPDATE LINKS_FSH SET PUBLISH = '02-11-2004' WHERE ID = 7768

Og når jeg kører den i Enterprise så virker det fint. Mystisk. Hvad er fejlen?