VDA

Если да киньте примеры плиз

Sergik

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
Session.LCID = 1049
set Session('Connection') = Server.CreateObject('ADODB.Connection')
Session('Connection').Open 'бд','user','password'
Session('Connection').execute('insert...')
end sub
</script>

VDA

ок спасибо
у меня еще такой вопрос
у меня есть сессия и в ней хранится id
мне нужно после того как сессия закроется удалить из базы все записи с этим id

но когда я делаю это в session_OnEnd в global.asa
то я не могу удалить записи с этим Id так как все сессии уже уничтожены

то есть вот такой код не работает


<SCRIPT LANGUAGE=VBScript RUNAT=server >
'****************************************************
sub delet(temp_id)



conStr = 'Driver={Microsoft Access Driver (*.mdb)}BQ='&server.MapPath('/art/db/art.mdb')&';'

Set mC=Server.CreateObject('ADODB.Connection')
Set mR=Server.CreateObject('ADODB.Recordset')

mC.Open conStr

strSQL='DELETE FROM korz WHERE id=''&temp_id&'' '
Set mR.ActiveConnection = mC
mR.Source = strSQL
mR.LockType = 3
mR.CursorType=1
mR.Open
end sub
'******************************************************

Sub Session_OnEnd
temp_id=session('temp_id')

call delet(temp_id)
End Sub


Sub Session_OnStart

session.Timeout =1


'=============================================================
'Уникальный temp_ID

data=replace(now,chr(32),'')
data=replace(data,'.','')
data=replace(data,':','')
randomize
rand=rnd
rand=replace(rand,',','')
rand=replace(rand,'E-','')
rand=left(rand,3)
temp_id=data&rand
'=============================================================
session('temp_id')=temp_id
'=============================================================


End Sub
</SCRIPT>

как мне все таки вытащить id из сессии в session_onEnd ?