%@ Language=VBScript %> <% dim rsIn,iRec Set rsIn=CreateObject("ADODB.Recordset") rsIn.CursorLocation = 3 rsIn.LockType=4 set rsIn=rsClientWeb(Session("IdClient")) Dim arrValue(),iSize iSize=16 txtError="" if Session("IdClient")>0 then Client_InfoById CInt(Session("IdClient")),arrValue,iSize Session("txtLastN")=arrValue(1) Session("txtFirstN")=arrValue(2) Session("txtEmail")=arrValue(12) end if %>
|
||||||||||
|