hola algo asi podrias hacer
<<configBD.asp>>
sub CrearCon()
Application.Lock()
BD= "driver={SQL Server};server=" & Servidor & ";database=" & BaseDatos & ";uid=" & User & ";pwd=" & PassWord & ";"
set conectar=server.CreateObject ("ADODB.connection")
conectar.Open BD
Application.UnLock()
end sub
sub CrearRs()
Application.Lock()
set rs = Server.CreateObject("ADODB.Recordset")
Application.UnLock()
end sub
Sub RSEjecutar(senSQL)
Application.Lock()
rs.Open senSQL, conectar
Application.UnLock()
End Sub
<<otrapagina.asp>>
<!--#include file ="config.asp"-->
dim rs,conectar,sql
CrearCon
CrearRs
sql="select...from...where..."
RSEjecutar(sql)
if not rs.eof then
...
etc..
si trabajas con sqlserver
podrias crear como clave primaria
un autonumerico asi cuando inserten
en la tabla no haya problema de concurrencia
espero que te sirva chausito
