Are you getting ADO timeout errors when connecting to SQL Server using VBScript and also using recordsets instead of command objects?
If you are not creating a connection object and just passing a connection string to the recordset, just set the CommandTimeout directly:
Dim rs
Set rs = Server.CreateOjbect(“ADODB.Recordset”)
rs.ActiveConnection = your connection string goes here
rs.ActiveConnection.CommandTimeout = 120
Of course it is also possible to redesign your queries or change the indexes on your tables for better performance. If your query is returning a lot of data, however, indexes and redesign may not be possible.