Hi
Create the DNS for the connection and proceed as
if month = 12 and year = getyear + 1 and request.servervariables "logon user" = 'DII\yobest1' then
Set conn=Server.CreateObject("ADODB.Connection")
connStr="dsn=CRMWEB;uid=sa;pwd=S;" 'CRMWEB is DSN Name
conn.open connStr
set rs=server.createobject("ADODB.recordset")
sql="Insert into Query" ''Write down your Query here
rs.open sql, conn2, adOpenStatic
rs.close
set rs=nothing
conn.close
else
response.write "the 2010 booking is currently open only to the administrators"
Think this will help you