Getting URL of the page and passing it to other page 5

[zxcdf5je]

hi there,
I have this page which lists all the users name and they can be edited deleted and updated.The page which does that is 2.asp and the page which actually lists all the users is 1.asp.
when i delete a particular user by using 2.asp ,after delteing the users name it redirects me to the first page of 1.asp and i again have to go do 28th page to proceed ahead with other users..is there any way i could catch that page number /page and make the user return to the page from where they came from?

Hope u are understanding what i want..
help needed..pleaseeeee

-Smita

1.asp uses this code to catch url:
'-------------------------------
' list Navigation begin
'-------------------------------
bEof = rs.eof
if not(rs.EOF and iPage=1) then
if iPage = 1 then
%>
<font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Previous</font>
<%
else
%>
<a href="<%=file_name%>?<%=form_params%><%=sSortParams%>Formlist_Page=<%=iPage - 1%>#list"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Previous</font></a>
<%
end if
response.write "&nbsp;[&nbsp;" & iPage & "&nbsp;]&nbsp;"

if bEof then
%>
<font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Next</font>
<%
else
%>
<a href="<%=file_name%>?<%=form_params%><%=sSortParams%>Formlist_Page=<%=iPage + 1%>#list"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Next</font></a>
<%
end if
end if
'-------------------------------
' list Navigation end
'-------------------------------

2.asp
has just a variable sActionField="1.asp"
which if delete update pressed would point to this variable and take it to the first page ..

hope that helps

 

[zxcdf5je]

Will i need to include 1.asp in the 2.asp file by doing
<--include #1.asp> for it to understand where the form_list and ipage is comming from?

 

[Sheco]

Woah there!

The value of Formlist_Page gets to 2.asp via the QueryString... that is kinda the entire topic of this thread.

iPage is a local variable on 1.asp, it doesn't belong in 2.asp.

 

[zxcdf5je]

the code which i have is giving me this error:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'CLng'

/1.asp, line 314

line 314 is:
if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)

 

[zxcdf5je]

i am getting damn confused!!!but will try till i get it

 

[zxcdf5je]

hi everyone..
some improvement in my coding...i now can catch the page number ...but when i click update it goes to the first page by defualt..
this is wht is happenign till now..
i got to 1.asp..i got page number 2 :
url of this page is:

http://dd.merrickgraphics.com/1.asp?s_company=&Formlist_Page=2#list

i click on a item and go to the next screen where there are update/cancel buttons
url of this page now is:

http://dd.merrickgraphics.com/2.asp?ID=3620&s_company=&Formlist_Page=2#list

which previously was not giving any page number..but now when i hit update it goes to default page which is page number 1...
any ideas??

 

[steven290]

post the entire code for page2 so we can bring this thread to a close

 

[zxcdf5je]

these are the two full programs(1.asp and 2.asp)

this is 1.asp(listGrid.asp):
<%
'
' Filename: listGrid.asp
' Generated with CodeCharge 2.0.4
' ASP 2.0.ccp build 11/30/2001
'

'-------------------------------
' listGrid CustomIncludes begin
%>

<!-- #INCLUDE FILE="Common.asp" -->

<%
' listGrid CustomIncludes end
'-------------------------------

'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "listGrid.asp"
'===============================


'===============================
' listGrid PageSecurity begin
' listGrid PageSecurity end
'===============================

'===============================
' listGrid Open Event start
' listGrid Open Event end
'===============================

'===============================
' listGrid OpenAnyPage Event start
' listGrid OpenAnyPage Event end
'===============================

'===============================
' Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================

' listGrid Show begin

'===============================
' Page execution
'-------------------------------
'===============================

'===============================
' HTML Page layout
'-------------------------------
%><html>
<head>
<title>drain</title>
<meta name="GENERATOR" content="YesSoftware CodeCharge v.2.0.4 build 11/30/2001">
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="0">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"></head>
<body style="background-color: #ffffff; color: #000000">

<table>
<tr>

<td valign="top">
<% Search_Show %>

</td>
</tr>
</table>
<table>
<tr>
<td valign="top">
<% list_Show %>

</td>
</tr>
</table>



</body>
</html>
<%
' listGrid Show end

' listGrid Close Event start
' listGrid Close Event end

'-------------------------------
' Destroy connection object
'-------------------------------
cn.close
Set cn = nothing
'===============================


'********************************************************************************


'===============================
' Display Search Form
'-------------------------------
Sub Search_Show()
Dim sFormTitle: sFormTitle = "Search"

Dim action_page: action_page = "listGrid.asp"

'-------------------------------
' Search Open Event start
' Search Open Event end
'-------------------------------

'-------------------------------
' Set variables with search parameters
'-------------------------------
flds_company = GetParam("s_company")

'-------------------------------
' Search Show begin
'-------------------------------


'-------------------------------
' Search Show Event start
' Search Show Event end
'-------------------------------
%>
<form method="GET" action="<%= action_page %>" name="Search">
<input type="hidden" name="FormName" value="Search"><input type="hidden" name="FormAction" value="search">
<table style="border-style: groove; border-width: 3">
<tr>
<td style="background-color: #800000; text-align: Center; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000" colspan="3"><a name="Search"><font style="font-size: 12pt; color: #FFFFFF; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica"><%=sFormTitle%></font></a></td>
</tr>
<tr>
<td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">company</font></td>
<td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><input type="text" name="s_company" maxlength="255" value="<%= ToHTML(flds_company) %>" size="50" ></td>
<td ><input type="submit" value="Search"></td>
</tr>
</table>
</form>
<%

'-------------------------------
' Search Show end
'-------------------------------


'-------------------------------
' Search Close Event start
' Search Close Event end
'-------------------------------
end sub
'===============================


'===============================
' Display Grid Form
'-------------------------------
Sub list_Show()
'-------------------------------
' Initialize variables
'-------------------------------
Dim rs
Dim sWhere : sWhere = ""
Dim sOrder : sOrder = ""
Dim sSQL : sSQL = ""
Dim sFormTitle: sFormTitle = "list"
Dim HasParam : HasParam = false
Dim iSort : iSort = ""
Dim iSorted : iSorted = ""
Dim sDirection : sDirection = ""
Dim form_sorting : form_sorting = ""
Dim sSortParams : sSortParams = ""
Dim form_action : form_action = ""
Dim iRecordsPerPage : iRecordsPerPage = 20
Dim iCounter : iCounter = 0
Dim iPage : iPage = 0
Dim bEof : bEof = False
Dim sActionFileName : sActionFileName = "listRecord.asp"

Dim transit_params : transit_params = "s_company=" & ToURL(GetParam("s_company")) & "&"
Dim form_params : form_params = "s_company=" & ToURL(GetParam("s_company")) & "&"

'-------------------------------
' Build ORDER BY statement
'-------------------------------
sOrder = " order by l.company Asc"
iSort = GetParam("Formlist_Sorting")
iSorted = GetParam("Formlist_Sorted")
sDirection = ""
if IsEmpty(iSort) then
form_sorting = ""
else
if iSort = iSorted then
form_sorting = ""
sDirection = " DESC"
sSortParams = "Formlist_Sorting=" & iSort & "&Formlist_Sorted=" & iSort & "&"
else
form_sorting = iSort
sDirection = " ASC"
sSortParams = "Formlist_Sorting=" & iSort & "&Formlist_Sorted=" & "&"
end if
if iSort = 1 then sOrder = " order by l.[indexid]" & sDirection
if iSort = 2 then sOrder = " order by l.

• " & sDirection
  if iSort = 3 then sOrder = " order by l.[company]" & sDirection
  if iSort = 4 then sOrder = " order by l.[fname]" & sDirection
  if iSort = 5 then sOrder = " order by l.[lname]" & sDirection
  if iSort = 6 then sOrder = " order by l.[city]" & sDirection
  if iSort = 7 then sOrder = " order by l.[state]" & sDirection
  if iSort = 8 then sOrder = " order by l.[zip]" & sDirection
  end if
  
  '-------------------------------
  ' HTML column headers
  '-------------------------------
  %>
  <table style="border-style: groove; border-width: 3">
  <tr>
  <td style="background-color: #800000; text-align: Center; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000" colspan="8"><a name="list"><font style="font-size: 12pt; color: #FFFFFF; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica"><%=sFormTitle%></font></a></td>
  </tr>
  <tr>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=1&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">indexid</font></a></td>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=2&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">list</font></a></td>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=3&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">company</font></a></td>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=4&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">fname</font></a></td>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=5&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">lname</font></a></td>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=6&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">city</font></a></td>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=7&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">state</font></a></td>
  <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><a href="<%=sFileName%>?<%=form_params%>Formlist_Sorting=8&Formlist_Sorted=<%=form_sorting%>&"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">zip</font></a></td>
  </tr>
  <%
  
  '-------------------------------
  ' Build WHERE statement
  '-------------------------------
  ps_company = GetParam("s_company")
  if not isEmpty(ps_company) then
  HasParam = true
  sWhere = "l.[company] like '%" & replace(ps_company, "'", "''") & "%'" & " or " & "l.
  • like '%" & replace(ps_company, "'", "''") & "%'" & " or " & "l.[city] like '%" & replace(ps_company, "'", "''") & "%'"
    end if
    
    
    if HasParam then
    sWhere = " WHERE (" & sWhere & ")"
    end if
    
    '-------------------------------
    ' Build base SQL statement
    '-------------------------------
    sSQL = "select [l].[ID] as l_ID, " & _
    "[l].[city] as l_city, " & _
    "[l].[company] as l_company, " & _
    "[l].[fname] as l_fname, " & _
    "[l].[indexid] as l_indexid, " & _
    "[l].
    • as l_list, " & _
      "[l].[lname] as l_lname, " & _
      "[l].[state] as l_state, " & _
      "[l].[zip] as l_zip " & _
      " from
      • l "
        '-------------------------------
        
        '-------------------------------
        ' list Open Event start
        ' list Open Event end
        '-------------------------------
        
        '-------------------------------
        ' Assemble full SQL statement
        '-------------------------------
        sSQL = sSQL & sWhere & sOrder
        '-------------------------------
        
        '-------------------------------
        ' Process the link to the record page
        '-------------------------------
        form_action = sActionFileName
        '-------------------------------
        
        
        '-------------------------------
        ' Open the recordset
        '-------------------------------
        openrs rs, sSQL
        '-------------------------------
        
        '-------------------------------
        ' Process empty recordset
        '-------------------------------
        if rs.eof then
        %>
        <tr>
        <td colspan="8" style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">No records</font></td>
        </tr>
        <%
        end if
        '-------------------------------
        
        '-------------------------------
        'Initialize page counter and records per page
        '-------------------------------
        iRecordsPerPage = 20
        iCounter = 0
        
        '-------------------------------
        ' Process page scroller
        '-------------------------------
        iPage = GetParam("Formlist_Page")
        if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)
        while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage
        rs.movenext
        iCounter = iCounter + 1
        wend
        iCounter = 0
        '-------------------------------
        
        '-------------------------------
        ' Display grid based on recordset
        '-------------------------------
        while not rs.EOF and iCounter < iRecordsPerPage
        '-------------------------------
        ' Create field variables based on database fields
        '-------------------------------
        fldcity = GetValue(rs, "l_city")
        fldcompany = GetValue(rs, "l_company")
        fldfname = GetValue(rs, "l_fname")
        fldID = GetValue(rs, "l_ID")
        fldindexid_URLLink = "listRecord.asp"
        fldindexid_ID = GetValue(rs, "l_ID")
        fldindexid = GetValue(rs, "l_indexid")
        fldlist = GetValue(rs, "l_list")
        fldlname = GetValue(rs, "l_lname")
        fldstate = GetValue(rs, "l_state")
        fldzip = GetValue(rs, "l_zip")
        '-------------------------------
        ' list Show begin
        '-------------------------------
        
        '-------------------------------
        ' list Show Event start
        ' list Show Event end
        '-------------------------------
        
        '-------------------------------
        ' Process the HTML controls
        '-------------------------------
        %>
        <tr>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><a href="<%=fldindexid_URLLink%>?ID=<%=fldindexid_ID%>&<%=transit_params%>Formlist_Page=<%=iPage%>#list"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldindexid%></font></a>&nbsp;</font></td>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldlist)%>&nbsp;</font></td>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldcompany)%>&nbsp;</font></td>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldfname)%>&nbsp;</font></td>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldlname)%>&nbsp;</font></td>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldcity)%>&nbsp;</font></td>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldstate)%>&nbsp;</font></td>
        <td style="background-color: #FFFFCC; border-style: inset; border-width: 1"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldzip)%>&nbsp;</font></td>
        </tr><%
        
        '-------------------------------
        ' list Show end
        '-------------------------------
        
        '-------------------------------
        ' Move to the next record and increase record counter
        '-------------------------------
        rs.MoveNext
        iCounter = iCounter + 1
        wend
        '-------------------------------
        
        
        '-------------------------------
        ' Process the bottom on the Grid. The insert link and record navigator.
        '-------------------------------
        %>
        <tr>
        <td colspan="8" style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica"><a href="<%= form_action %>?<%= transit_params %>"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Insert</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <%
        
        '-------------------------------
        ' list Navigation begin
        '-------------------------------
        bEof = rs.eof
        if not(rs.EOF and iPage=1) then
        if iPage = 1 then
        %>
        <font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Previous</font>
        <%
        else
        %>
        <a href="<%=file_name%>?<%=form_params%><%=sSortParams%>Formlist_Page=<%=iPage - 1%>#list"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Previous</font></a>
        <%
        end if
        response.write "&nbsp;[&nbsp;" & iPage & "&nbsp;]&nbsp;"
        
        if bEof then
        %>
        <font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Next</font>
        <%
        else
        %>
        <a href="<%=file_name%>?<%=form_params%><%=sSortParams%>Formlist_Page=<%=iPage + 1%>#list"><font style="font-size: 10pt; color: #000000; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica">Next</font></a>
        <%
        end if
        end if
        '-------------------------------
        ' list Navigation end
        '-------------------------------
        
        '-------------------------------
        ' Finish form processing
        '-------------------------------
        set rs = nothing
        
        %>
        </font></td></tr>
        </table>
        <%
        
        '-------------------------------
        ' list Close Event start
        ' list Close Event end
        '-------------------------------
        end sub
        '===============================
        %>
        
        this is 2.asp(listRecord.asp)
        <%
        '
        ' Filename: listRecord.asp
        ' Generated with CodeCharge 2.0.4
        ' ASP 2.0.ccp build 11/30/2001
        '
        
        '-------------------------------
        ' listRecord CustomIncludes begin
        %>
        
        <!-- #INCLUDE FILE="Common.asp" -->
        
        
        <%
        ' listRecord CustomIncludes end
        '-------------------------------
        
        '===============================
        ' Save Page and File Name available into variables
        '-------------------------------
        sFileName = "listRecord.asp"
        '===============================
        
        
        '===============================
        ' listRecord PageSecurity begin
        ' listRecord PageSecurity end
        '===============================
        
        '===============================
        ' listRecord Open Event start
        ' listRecord Open Event end
        '===============================
        
        '===============================
        ' listRecord OpenAnyPage Event start
        ' listRecord OpenAnyPage Event end
        '===============================
        
        '===============================
        ' Save the name of the form and type of action into the variables
        '-------------------------------
        sAction = GetParam("FormAction")
        sForm = GetParam("FormName")
        '===============================
        
        ' listRecord Show begin
        
        '===============================
        ' Page execution
        '-------------------------------
        'Initialize error variables
        '-------------------------------
        slistErr = ""
        
        '-------------------------------
        ' Select the FormAction
        '-------------------------------
        Select Case sForm
        Case "list"
        listAction(sAction)
        end select
        '===============================
        
        '===============================
        ' HTML Page layout
        '-------------------------------
        %><html>
        <head>
        <title>drain</title>
        <meta name="GENERATOR" content="YesSoftware CodeCharge v.2.0.4 build 11/30/2001">
        <meta http-equiv="pragma" content="no-cache">
        <meta http-equiv="expires" content="0">
        <meta http-equiv="cache-control" content="no-cache">
        <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"></head>
        <body style="background-color: #ffffff; color: #000000">
        
        <table>
        <tr>
        
        <td valign="top">
        <% list_Show %>
        
        </td>
        </tr>
        </table>
        
        
        
        </body>
        </html>
        <%
        ' listRecord Show end
        
        ' listRecord Close Event start
        ' listRecord Close Event end
        
        '-------------------------------
        ' Destroy connection object
        '-------------------------------
        cn.close
        Set cn = nothing
        '===============================
        
        
        '********************************************************************************
        
        '===============================
        ' Action of the Record Form
        '-------------------------------
        Sub listAction(sAction)
        '-------------------------------
        ' Initialize variables
        '-------------------------------
        Dim bExecSQL: bExecSQL = true
        Dim sActionFileName : sActionFileName = ""
        Dim sWhere : sWhere = ""
        Dim bErr : bErr = False
        Dim pPKID : pPKID = ""
        Dim fldindexid : fldindexid = ""
        Dim fldlist : fldlist = ""
        Dim fldcompany : fldcompany = ""
        Dim fldfname : fldfname = ""
        Dim fldlname : fldlname = ""
        Dim fldtitle : fldtitle = ""
        Dim fldaddress : fldaddress = ""
        Dim fldcity : fldcity = ""
        Dim fldstate : fldstate = ""
        Dim fldzip : fldzip = ""
        Dim fldzip5 : fldzip5 = ""
        '-------------------------------
        iPage = GetParam("Formlist_Page")
        if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)
        while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage
        rs.movenext
        iCounter = iCounter + 1
        wend
        iCounter = 0
        
        '-------------------------------
        ' list Action begin
        '-------------------------------
        sActionFileName = "
        http://dd.merrickgraphics.com/listGrid.asp?s_company="
        & request("s_company") & "&Formlist_Page=" & request("iPage") &"#list"
        '-------------------------------
        ' CANCEL action
        '-------------------------------
        if sAction = "cancel" then
        
        '-------------------------------
        ' list BeforeCancel Event start
        ' list BeforeCancel Event end
        '-------------------------------
        cn.Close
        Set cn = Nothing
        response.redirect sActionFileName
        end if
        '-------------------------------
        
        '-------------------------------
        ' Build WHERE statement
        '-------------------------------
        if sAction = "update" or sAction = "delete" then
        pPKID = GetParam("PK_ID")
        if IsEmpty(pPKID) then exit sub
        sWhere = "ID=" & ToSQL(pPKID, "Number")
        end if
        '-------------------------------
        
        
        '-------------------------------
        ' Load all form fields into variables
        '-------------------------------
        fldindexid = GetParam("indexid")
        fldlist = GetParam("list")
        fldcompany = GetParam("company")
        fldfname = GetParam("fname")
        fldlname = GetParam("lname")
        fldtitle = GetParam("title")
        fldaddress = GetParam("address")
        fldcity = GetParam("city")
        fldstate = GetParam("state")
        fldzip = GetParam("zip")
        fldzip5 = GetParam("zip5")
        
        '-------------------------------
        ' Validate fields
        '-------------------------------
        if sAction = "insert" or sAction = "update" then
        '-------------------------------
        ' list Check Event start
        ' list Check Event end
        '-------------------------------
        If len(slistErr) > 0 then
        exit sub
        end if
        end if
        '-------------------------------
        
        
        '-------------------------------
        ' Create SQL statement
        '-------------------------------
        select case sAction
        case "insert"
        '-------------------------------
        ' list Insert Event start
        ' list Insert Event end
        '-------------------------------
        sSQL = "insert into list (" & _
        "[indexid]," & _
        "
        • ," & _
          "[company]," & _
          "[fname]," & _
          "[lname]," & _
          "[title]," & _
          "[address]," & _
          "[city]," & _
          "[state]," & _
          "[zip]," & _
          "[zip5])" & _
          " values (" & _
          ToSQL(fldindexid, "Text") & "," & _
          ToSQL(fldlist, "Text") & "," & _
          ToSQL(fldcompany, "Text") & "," & _
          ToSQL(fldfname, "Text") & "," & _
          ToSQL(fldlname, "Text") & "," & _
          ToSQL(fldtitle, "Text") & "," & _
          ToSQL(fldaddress, "Text") & "," & _
          ToSQL(fldcity, "Text") & "," & _
          ToSQL(fldstate, "Text") & "," & _
          ToSQL(fldzip, "Text") & "," & _
          ToSQL(fldzip5, "Text") & _
          ")"
          case "update"
          '-------------------------------
          ' list Update Event start
          ' list Update Event end
          '-------------------------------
          sSQL = "update list set " & _
          "[indexid]=" & ToSQL(fldindexid, "Text") & _
          ",
          • =" & ToSQL(fldlist, "Text") & _
            ",[company]=" & ToSQL(fldcompany, "Text") & _
            ",[fname]=" & ToSQL(fldfname, "Text") & _
            ",[lname]=" & ToSQL(fldlname, "Text") & _
            ",[title]=" & ToSQL(fldtitle, "Text") & _
            ",[address]=" & ToSQL(fldaddress, "Text") & _
            ",[city]=" & ToSQL(fldcity, "Text") & _
            ",[state]=" & ToSQL(fldstate, "Text") & _
            ",[zip]=" & ToSQL(fldzip, "Text") & _
            ",[zip5]=" & ToSQL(fldzip5, "Text")
            sSQL = sSQL & " where " & sWhere
            case "delete"
            '-------------------------------
            ' list Delete Event start
            ' list Delete Event end
            '-------------------------------
            sSQL = "delete from list where " & sWhere
            end select
            '-------------------------------
            '-------------------------------
            ' list BeforeExecute Event start
            ' list BeforeExecute Event end
            '-------------------------------
            
            '-------------------------------
            ' Execute SQL statement
            '-------------------------------
            if len(slistErr) > 0 then Exit Sub
            on error resume next
            if bExecSQL then
            cn.execute sSQL
            end if
            slistErr = ProcessError
            on error goto 0
            if len(slistErr) > 0 then Exit Sub
            cn.Close
            Set cn = Nothing
            response.redirect sActionFileName
            '-------------------------------
            ' list Action end
            '-------------------------------
            end sub
            '===============================
            
            '===============================
            ' Display Record Form
            '-------------------------------
            Sub list_Show()
            '-------------------------------
            ' list Show begin
            '-------------------------------
            sWhere = ""
            Dim sFormTitle: sFormTitle = "list"
            bPK = true
            
            %>
            
            <table style="border-style: groove; border-width: 3">
            <form method="POST" action="<%= sFileName %>" name="list">
            <tr><td style="background-color: #800000; text-align: Center; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000" colspan="2"><font style="font-size: 12pt; color: #FFFFFF; font-weight: bold; font-family: Arial, Tahoma, Verdana, Helvetica"><%=sFormTitle%></font></td></tr>
            <% if not (slistErr = "") then %>
            <tr><td style="background-color: #FFFFCC; border-style: inset; border-width: 1" colspan="2"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%= slistErr %></font></td></tr>
            <% end if %>
            <%
            
            '-------------------------------
            ' Load primary key and form parameters
            '-------------------------------
            if slistErr = "" then
            fldID = GetParam("ID")
            pID = GetParam("ID")
            else
            fldID = GetParam("ID")
            fldindexid = GetParam("indexid")
            fldlist = GetParam("list")
            fldcompany = GetParam("company")
            fldfname = GetParam("fname")
            fldlname = GetParam("lname")
            fldtitle = GetParam("title")
            fldaddress = GetParam("address")
            fldcity = GetParam("city")
            fldstate = GetParam("state")
            fldzip = GetParam("zip")
            fldzip5 = GetParam("zip5")
            pID = GetParam("PK_ID")
            end if
            
            '-------------------------------
            ' Load all form fields
            
            '-------------------------------
            
            '-------------------------------
            ' Build WHERE statement
            
            if IsEmpty(pID) then bPK = False
            
            sWhere = sWhere & "ID=" & ToSQL(pID, "Number")
            PK_ID = pID
            '-------------------------------
            '-------------------------------
            ' list Open Event start
            ' list Open Event end
            '-------------------------------
            
            '-------------------------------
            ' Build SQL statement and open recordset
            '-------------------------------
            sSQL = "select * from list where " & sWhere
            openrs rs, sSQL
            bIsUpdateMode = (bPK and not(sAction = "insert" and sForm = "list") and not rs.eof)
            '-------------------------------
            
            '-------------------------------
            ' Load all fields into variables from recordset or input parameters
            '-------------------------------
            if bIsUpdateMode then
            fldID = GetValue(rs, "ID")
            
            '-------------------------------
            ' Load data from recordset when form displayed first time
            '-------------------------------
            if slistErr = "" then
            fldindexid = GetValue(rs, "indexid")
            fldlist = GetValue(rs, "list")
            fldcompany = GetValue(rs, "company")
            fldfname = GetValue(rs, "fname")
            fldlname = GetValue(rs, "lname")
            fldtitle = GetValue(rs, "title")
            fldaddress = GetValue(rs, "address")
            fldcity = GetValue(rs, "city")
            fldstate = GetValue(rs, "state")
            fldzip = GetValue(rs, "zip")
            fldzip5 = GetValue(rs, "zip5")
            end if
            '-------------------------------
            ' list ShowEdit Event start
            ' list ShowEdit Event end
            '-------------------------------
            else
            if slistErr = "" then
            fldID = ToHTML(GetParam("ID"))
            end if
            '-------------------------------
            ' list ShowInsert Event start
            ' list ShowInsert Event end
            '-------------------------------
            end if
            '-------------------------------
            ' list Show Event start
            ' list Show Event end
            '-------------------------------
            
            '-------------------------------
            ' Show form fields
            '-------------------------------
            %>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">indexid</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="indexid" maxlength="255" value="<%= ToHTML(fldindexid) %>" size="10" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">list</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="list" maxlength="255" value="<%= ToHTML(fldlist) %>" size="20" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">company</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="company" maxlength="255" value="<%= ToHTML(fldcompany) %>" size="50" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">fname</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="fname" maxlength="255" value="<%= ToHTML(fldfname) %>" size="50" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">lname</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="lname" maxlength="255" value="<%= ToHTML(fldlname) %>" size="50" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">title</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="title" maxlength="255" value="<%= ToHTML(fldtitle) %>" size="50" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">address</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="address" maxlength="255" value="<%= ToHTML(fldaddress) %>" size="75" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">city</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="city" maxlength="255" value="<%= ToHTML(fldcity) %>" size="40" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">state</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="state" maxlength="255" value="<%= ToHTML(fldstate) %>" size="20" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">zip</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="zip" maxlength="255" value="<%= ToHTML(fldzip) %>" size="10" ></font></td>
            </tr>
            <tr>
            <td style="background-color: #CCCCCC; border-left: 1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #000000">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">zip5</font>
            </td>
            <td style="background-color: #FFFFCC; border-style: inset; border-width: 1">
            <font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="zip5" maxlength="255" value="<%= ToHTML(fldzip5) %>" size="14" ></font></td>
            </tr>
            <tr><td colspan="2" align="right"><% if not bIsUpdateMode then %>
            <input type="hidden" value="insert" name="FormAction">
            <input type="submit" value="Insert" onclick="document.list.FormAction.value = 'insert';">
            <% end if %>
            <% if bIsUpdateMode then %>
            <input type="hidden" value="update" name="FormAction"/>
            <input type="submit" value="Update" onclick="document.list.FormAction.value = 'update';">
            <input type="submit" value="Delete" onclick="document.list.FormAction.value = 'delete';">
            <% end if %>
            <input type="submit" value="Cancel" onclick="document.list.FormAction.value = 'cancel';">
            <input type="hidden" name="FormName" value="list">
            
            <input type="hidden" name="PK_ID" value="<%= pID %>">
            <input type="hidden" name="ID" value="<%= ToHTML(fldID)%>">
            </td></tr>
            </form>
            </table>
            <%
            
            
            '-------------------------------
            ' list Close Event start
            ' list Close Event end
            '-------------------------------
            
            Set rs = Nothing
            
            '-------------------------------
            ' list Show end
            '-------------------------------
            End Sub
            '===============================
            
            %>

 

[Sheco]

No wonder!

 

[zxcdf5je]

see i already told u that i am as good as a fresher in asp!!!
u are the only hope dear!!!

-Smita

do u work for tek-tips by any chance?

 

[Sheco]

No I have a real job.

My boss doesn't care that I'm looking at tek-tips instead of working because the "powers that be" said not to work on patching the existing system because they are getting a new one... in 2006!

I used to feel guilty about spending so much time working on other people's code until I figured out that the rest of the department spends all day reading message boards for World of Warcraft.

 

[Sheco]

Did you add these comments to the code or were they automagically generated?

 

[steven290]

now wonder this has be giving you a headache, why all this extra coding- this could have been done more easily

 

[zxcdf5je]

actually this code was generated i guess by the person who was working here before and then i got this assignement of the url stuff...
because i realiazed that the same portal has been used beofre for lots of more webisted which were designed by her(who was working here before)...

hey u really doing a fantastic job of helping ppl out..you must be getting a lot of blessings from the ppl for whom you were of help to solve the problem...
great job..i really appreciate the work u guys are doing!!!

-Smita

 

[zxcdf5je]

hey..one more thing i want to let u know..
in 2.asp u see this line of code:

iPage = GetParam("Formlist_Page")
if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)
while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage
rs.movenext
iCounter = iCounter + 1
wend
iCounter = 0


i added it later but never tried with this being added ..u can delete it..as it wasnt there in the original code...
sorry abt this

-Smita

 

[steven290]

also provide the common.asp code it has the getparams function

 

[zxcdf5je]

ok...here u go!

<!-- #INCLUDE FILE="adovbs.inc" -->
<%
'
' Filename: Common.asp
' Generated with CodeCharge 2.0.4
' ASP 2.0.ccp build 11/30/2001
'
'===============================
' Database Connection Definition
'-------------------------------
' drain Connection begin

Dim cn : Set cn = Server.CreateObject("ADODB.Connection")
'-------------------------------
' Create database connection string, login and password variables
'-------------------------------
Dim strConn, strLogin, strPassword
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Inetpub\Databases\ddrain\db1.mdb;Persist Security Info=False"
strLogin = "Admin"
strPassword = ""
'-------------------------------
' Open the connection
'-------------------------------
cn.open strConn, strLogin, strPassword
'-------------------------------
' drain Connection end
'-------------------------------
' Create forward only recordset using current database and passed SQL statement
'-------------------------------
sub openrs(rs, sql)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseServer
rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
end sub

'-------------------------------
' Create static only recordset using current database and passed SQL statement
'-------------------------------
sub openStaticRS(rs, sql)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseServer
rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
end sub
'===============================

'===============================
' Site Initialization
'-------------------------------
' Specify Debug mode (true/false)
Dim bDebug : bDebug = false
'-------------------------------
' Obtain the path where this site is located on the server
'-------------------------------
Dim sAppPath : sAppPath = left(Request("PATH_TRANSLATED"), instrrev(Request("PATH_TRANSLATED"), "\"))
'===============================

'===============================
' Common functions
'-------------------------------
' Convert non-standard characters to HTML
'-------------------------------
function ToHTML(strValue)
if IsNull(strValue) then
ToHTML = ""
else
ToHTML = Server.HTMLEncode(strValue)
end if
end function

'-------------------------------
' Convert value to URL
'-------------------------------
function ToURL(strValue)
if IsNull(strValue) then strValue = ""
ToURL = Server.URLEncode(strValue)
end function

'-------------------------------
' Obtain HTML value of a field
'-------------------------------
function GetValueHTML(rs, strFieldName)
GetValueHTML = ToHTML(GetValue(rs, strFieldName))
end function

'-------------------------------
' Obtain database field value
'-------------------------------
function GetValue(rs, strFieldName)
on error resume next
if rs is nothing then
GetValue = ""
elseif (not rs.EOF) and (strFieldName <> "") then
res = rs(strFieldName)
if isnull(res) then
res = ""
end if
if VarType(res) = vbBoolean then
if res then res = "1" else res = "0"
end if
GetValue = res
else
GetValue = ""
end if
if bDebug then response.write err.Description
on error goto 0
end function

'-------------------------------
' Obtain specific URL Parameter from URL string
'-------------------------------
function GetParam(ParamName)
if Request.QueryString(ParamName).Count > 0 then
Param = Request.QueryString(ParamName)
elseif Request.Form(ParamName).Count > 0 then
Param = Request.Form(ParamName)
else
Param = ""
end if
if Param = "" then
GetParam = Empty
else
GetParam = Param
end if
end function

'-------------------------------
' Convert value for use with SQL statament
'-------------------------------
Function ToSQL(Value, sType)
Dim Param : Param = Value
if Param = "" then
ToSQL = "Null"
else
if sType = "Number" then
ToSQL = replace(CDbl(Param), ",", ".")
else
ToSQL = "'" & Replace(Param, "'", "''") & "'"
end if
end if
end function

'-------------------------------
' Lookup field in the database based on provided criteria
' Input: Table (Table), Field Name (fName), criteria (sWhere)
'-------------------------------
function DLookUp(Table, fName, sWhere)
on error resume next
Dim Res : Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value
if IsNull(Res) then Res = ""
DLookUp = Res
if bDebug then response.write err.Description
on error goto 0
end function

'-------------------------------
' Obtain Checkbox value depending on field type
'-------------------------------
function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType)
if isempty(sVal) then
if UnCheckedValue = "" then
getCheckBoxValue = "Null"
else
if sType = "Number" then
getCheckBoxValue = UnCheckedValue
else
getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'"
end if
end if
else
if CheckedValue = "" then
getCheckBoxValue = "Null"
else
if sType = "Number" then
getCheckBoxValue = CheckedValue
else
getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'"
end if
end if
end if
end function

'-------------------------------
' Obtain lookup value from array containing List Of Values
'-------------------------------
function getValFromLOV(sVal, aArr)
Dim i
Dim sRes : sRes = ""
if (ubound(aArr) mod 2) = 1 then
for i = 0 to ubound(aArr) step 2
if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1)
next
end if
getValFromLOV = sRes
end function

'-------------------------------
' Process Errors
'-------------------------------
function ProcessError()
if cn.Errors.Count > 0 then
ProcessError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")"
elseif not (Err.Description = "") then
ProcessError = Err.Description
else
ProcessError = ""
end if
end Function

'-------------------------------
' Verify user's security level and redirect to login page if needed
'-------------------------------
function CheckSecurity()
if Session("UserID") = "" then
cn.Close
Set cn = Nothing
response.redirect(".asp?querystring=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME")))
End if
end function
'===============================

'===============================
' GlobalFuncs begin
' GlobalFuncs end
'===============================
%>

 

[Sheco]

On page1 you have a variable called file_name ... where is it defined?

 

[zxcdf5je]

i guess its not defined..i just saw the code.,..how was it working withuot definig it??
is it a primitive name or something?

 

[steven290]

people i'm giving us some eyes just bear with me 1 have page 1 up and running just getting 2 to work, so we can see what we are talkin about

 

[Sheco]

It isn't a primative.

You don't actually HAVE to Dim all your variables.


Oh well. Worry about that later.