Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

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

Status
Not open for further replies.
zxcdf5je

zxcdf5je

Programmer
Apr 1, 2005
86
US
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
 
Sort by date Sort by votes
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?
 
Upvote 0 Downvote
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.
 
Upvote 0 Downvote
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)
 
Upvote 0 Downvote
i am getting damn confused!!!but will try till i get it
 
Upvote 0 Downvote
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:

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

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??
 
Upvote 0 Downvote
post the entire code for page2 so we can bring this thread to a close
 
Upvote 0 Downvote
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 = " & 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
              '===============================

              %>
 
Upvote 0 Downvote

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?

 
Upvote 0 Downvote
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.
 
Upvote 0 Downvote
Did you add these comments to the code or were they automagically generated?
 
Upvote 0 Downvote
now wonder this has be giving you a headache, why all this extra coding- this could have been done more easily
 
Upvote 0 Downvote
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
 
Upvote 0 Downvote
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
 
Upvote 0 Downvote
also provide the common.asp code it has the getparams function
 
Upvote 0 Downvote
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
'===============================
%>
 
Upvote 0 Downvote
On page1 you have a variable called file_name ... where is it defined?
 
Upvote 0 Downvote
i guess its not defined..i just saw the code.,..how was it working withuot definig it??
is it a primitive name or something?
 
Upvote 0 Downvote
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
 
Upvote 0 Downvote
It isn't a primative.

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


Oh well. Worry about that later.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

penguinspeaks
  • Locked
  • Question
Return to current location on page after asp processes.
Replies
2
Views
725
penguinspeaks
penguinspeaks
leifoet
  • Locked
  • Question
Code does not run in Microsoft Edge - it does in Google Chrome
Replies
3
Views
958
leifoet
leifoet
leifoet
  • Locked
  • Question
First execute an input command and only then proceed with displaying the next record of the table
Replies
0
Views
476
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
Parse a database field that is comma delimited and input the results into another table
Replies
0
Views
559
penguinspeaks
penguinspeaks
leifoet
  • Locked
  • Question
How to send HTML emails with ASP classic?
Replies
0
Views
817
leifoet
leifoet

Part and Inventory Search

Sponsor

Back
Top