<%
Option Explicit
Dim GGComp
Dim GGPath
Dim GGCompFull
Dim SoftConstr
%>
<%
Dim Conn1,ConRs,ConRs1,ConRs2,ConRs3
Set Conn1 = Server.CreateObject("ADODB.Connection")
Set ConRs = Server.CreateObject("ADODB.Recordset")
Set ConRs1 = Server.CreateObject("ADODB.Recordset")
Set ConRs2 = Server.CreateObject("ADODB.Recordset")
Set ConRs3 = Server.CreateObject("ADODB.Recordset")
Conn1.Open SoftConStr
ConRs1.Open "Select Clt_Addr1 From ClientInfo where Clt_id = 'HOME'",Conn1
IF CONRS1.RECORDCOUNT <> 0 THEN
Response.Cookies("mvDtAvl") = ConRs1("Clt_Addr1")
END IF
ConRs1.Close
%>
<%
Dim FSO
Dim ZOpen
Dim ZFile
Dim ZStr
Const ForReading = 1
Const TristateUseDefault = -2
Dim strPath
Dim strPhysicalPath
Dim strOpDesc
'strPath = "ResDisp.Txt"
'strPhysicalPath = Request.Servervariables("APPL_PHYSICAL_PATH") & strPath
'Set FSO = CreateObject("Scripting.FileSystemObject")
'Set ZOpen = FSO.GetFile(strPhysicalPath)
'Set ZFile = ZOpen.OpenAsTextStream(ForReading, TristateUseDefault)
'ZStr = ZFile.ReadLine
'GGComp = ZStr
'ZStr = ZFile.ReadLine
'GGPath= ZStr
'ZStr = ZFile.ReadLine
'GGCompFull= ZStr
'Response.Cookies("GGCompFull")=GGCompFull
'Response.Cookies("GGPaths")=GGPath
'Response.Cookies("GGComps")=GGComp
ConRs1.Open "Select Clt_Addr1,Clt_Addr2,Clt_Addr3 From ClientInfo where Clt_id = 'FILEPATH'",Conn1
IF CONRS1.RECORDCOUNT <> 0 THEN
Response.Cookies("GGCompFull") = ConRs1("Clt_Addr1")
Response.Cookies("GGPaths") = ConRs1("Clt_Addr2")
Response.Cookies("GGComps") = ConRs1("Clt_Addr3")
END IF
ConRs1.Close
%>
This section is developed by
Vikram Software Ltd for <%=Request.Cookies("GGCompFull") %>.Any suggestions,
please mail to vsspl@md4.vsnl.net.in.
This site can be best viewed with Internet Explorer 3.0 or higher.