44 users online (0 members and 44 guests)  

Thread: i need help


  Results 1 to 3 of 3
  1. #1
    happybear's Avatar
    New User

    Status
    Offline
    Join Date
    Aug 2007
    Posts
    2

    i need help

    I need help in solving the problems for me. i have created a page and when it runs there is no records coming out i need help.
    The code is below
    Code:
    <%@LANGUAGE="VBSCRIPT"%>
    <!--#include file="Connections/giftshop.asp" -->
    <%
    Dim rsgiftshop__MMColParam
    rsgiftshop__MMColParam = "1"
    If (Request.QueryString("catergory") <> "") Then 
      rsgiftshop__MMColParam = Request.QueryString("catergory")
    End If
    %>
    <%
    Dim rsgiftshop
    Dim rsgiftshop_numRows
    Set rsgiftshop = Server.CreateObject("ADODB.Recordset")
    rsgiftshop.ActiveConnection = MM_giftshop_STRING
    rsgiftshop.Source = "SELECT Name, Code, Price, Description, Picture FROM Catalogue WHERE catergory = '" + Replace(rsgiftshop__MMColParam, "'", "''") + "'"
    rsgiftshop.CursorType = 0
    rsgiftshop.CursorLocation = 2
    rsgiftshop.LockType = 1
    rsgiftshop.Open()
    rsgiftshop_numRows = 0
    %>
    <%
    Dim Repeat1__numRows
    Dim Repeat1__index
    Repeat1__numRows = 3
    Repeat1__index = 0
    rsgiftshop_numRows = rsgiftshop_numRows + Repeat1__numRows
    %>
    <%
    '  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
    Dim rsgiftshop_total
    Dim rsgiftshop_first
    Dim rsgiftshop_last
    ' set the record count
    rsgiftshop_total = rsgiftshop.RecordCount
    ' set the number of rows displayed on this page
    If (rsgiftshop_numRows < 0) Then
      rsgiftshop_numRows = rsgiftshop_total
    Elseif (rsgiftshop_numRows = 0) Then
      rsgiftshop_numRows = 1
    End If
    ' set the first and last displayed record
    rsgiftshop_first = 1
    rsgiftshop_last  = rsgiftshop_first + rsgiftshop_numRows - 1
    ' if we have the correct record count, check the other stats
    If (rsgiftshop_total <> -1) Then
      If (rsgiftshop_first > rsgiftshop_total) Then
        rsgiftshop_first = rsgiftshop_total
      End If
      If (rsgiftshop_last > rsgiftshop_total) Then
        rsgiftshop_last = rsgiftshop_total
      End If
      If (rsgiftshop_numRows > rsgiftshop_total) Then
        rsgiftshop_numRows = rsgiftshop_total
      End If
    End If
    %>
    <%
    Dim MM_paramName 
    %>
    <%
    ' *** Move To Record and Go To Record: declare variables
    Dim MM_rs
    Dim MM_rsCount
    Dim MM_size
    Dim MM_uniqueCol
    Dim MM_offset
    Dim MM_atTotal
    Dim MM_paramIsDefined
    Dim MM_param
    Dim MM_index
    Set MM_rs    = rsgiftshop
    MM_rsCount   = rsgiftshop_total
    MM_size      = rsgiftshop_numRows
    MM_uniqueCol = ""
    MM_paramName = ""
    MM_offset = 0
    MM_atTotal = false
    MM_paramIsDefined = false
    If (MM_paramName <> "") Then
      MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
    End If
    %>
    <%
    ' *** Move To Record: handle 'index' or 'offset' parameter
    if (Not MM_paramIsDefined And MM_rsCount <> 0) then
      ' use index parameter if defined, otherwise use offset parameter
      MM_param = Request.QueryString("index")
      If (MM_param = "") Then
        MM_param = Request.QueryString("offset")
      End If
      If (MM_param <> "") Then
        MM_offset = Int(MM_param)
      End If
      ' if we have a record count, check if we are past the end of the recordset
      If (MM_rsCount <> -1) Then
        If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
          If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
            MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
          Else
            MM_offset = MM_rsCount - MM_size
          End If
        End If
      End If
      ' move the cursor to the selected record
      MM_index = 0
      While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
        MM_rs.MoveNext
        MM_index = MM_index + 1
      Wend
      If (MM_rs.EOF) Then 
        MM_offset = MM_index  ' set MM_offset to the last possible record
      End If
    End If
    %>
    <%
    ' *** Move To Record: if we dont know the record count, check the display range
    If (MM_rsCount = -1) Then
      ' walk to the end of the display range for this page
      MM_index = MM_offset
      While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
        MM_rs.MoveNext
        MM_index = MM_index + 1
      Wend
      ' if we walked off the end of the recordset, set MM_rsCount and MM_size
      If (MM_rs.EOF) Then
        MM_rsCount = MM_index
        If (MM_size < 0 Or MM_size > MM_rsCount) Then
          MM_size = MM_rsCount
        End If
      End If
      ' if we walked off the end, set the offset based on page size
      If (MM_rs.EOF And Not MM_paramIsDefined) Then
        If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
          If ((MM_rsCount Mod MM_size) > 0) Then
            MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
          Else
            MM_offset = MM_rsCount - MM_size
          End If
        End If
      End If
      ' reset the cursor to the beginning
      If (MM_rs.CursorType > 0) Then
        MM_rs.MoveFirst
      Else
        MM_rs.Requery
      End If
      ' move the cursor to the selected record
      MM_index = 0
      While (Not MM_rs.EOF And MM_index < MM_offset)
        MM_rs.MoveNext
        MM_index = MM_index + 1
      Wend
    End If
    %>
    <%
    ' *** Move To Record: update recordset stats
    ' set the first and last displayed record
    rsgiftshop_first = MM_offset + 1
    rsgiftshop_last  = MM_offset + MM_size
    If (MM_rsCount <> -1) Then
      If (rsgiftshop_first > MM_rsCount) Then
        rsgiftshop_first = MM_rsCount
      End If
      If (rsgiftshop_last > MM_rsCount) Then
        rsgiftshop_last = MM_rsCount
      End If
    End If
    ' set the boolean used by hide region to check if we are on the last record
    MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
    %>
    <%
    ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
    Dim MM_keepNone
    Dim MM_keepURL
    Dim MM_keepForm
    Dim MM_keepBoth
    Dim MM_removeList
    Dim MM_item
    Dim MM_nextItem
    ' create the list of parameters which should not be maintained
    MM_removeList = "&index="
    If (MM_paramName <> "") Then
      MM_removeList = MM_removeList & "&" & MM_paramName & "="
    End If
    MM_keepURL=""
    MM_keepForm=""
    MM_keepBoth=""
    MM_keepNone=""
    ' add the URL parameters to the MM_keepURL string
    For Each MM_item In Request.QueryString
      MM_nextItem = "&" & MM_item & "="
      If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
        MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
      End If
    Next
    ' add the Form variables to the MM_keepForm string
    For Each MM_item In Request.Form
      MM_nextItem = "&" & MM_item & "="
      If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
        MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
      End If
    Next
    ' create the Form + URL string and remove the intial '&' from each of the strings
    MM_keepBoth = MM_keepURL & MM_keepForm
    If (MM_keepBoth <> "") Then 
      MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
    End If
    If (MM_keepURL <> "")  Then
      MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
    End If
    If (MM_keepForm <> "") Then
      MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
    End If
    ' a utility function used for adding additional parameters to these strings
    Function MM_joinChar(firstItem)
      If (firstItem <> "") Then
        MM_joinChar = "&"
      Else
        MM_joinChar = ""
      End If
    End Function
    %>
    <%
    ' *** Move To Record: set the strings for the first, last, next, and previous links
    Dim MM_keepMove
    Dim MM_moveParam
    Dim MM_moveFirst
    Dim MM_moveLast
    Dim MM_moveNext
    Dim MM_movePrev
    Dim MM_urlStr
    Dim MM_paramList
    Dim MM_paramIndex
    Dim MM_nextParam
    MM_keepMove = MM_keepBoth
    MM_moveParam = "index"
    ' if the page has a repeated region, remove 'offset' from the maintained parameters
    If (MM_size > 1) Then
      MM_moveParam = "offset"
      If (MM_keepMove <> "") Then
        MM_paramList = Split(MM_keepMove, "&")
        MM_keepMove = ""
        For MM_paramIndex = 0 To UBound(MM_paramList)
          MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
          If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
            MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
          End If
        Next
        If (MM_keepMove <> "") Then
          MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
        End If
      End If
    End If
    ' set the strings for the move to links
    If (MM_keepMove <> "") Then 
      MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
    End If
    MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
    MM_moveFirst = MM_urlStr & "0"
    MM_moveLast  = MM_urlStr & "-1"
    MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
    If (MM_offset - MM_size < 0) Then
      MM_movePrev = MM_urlStr & "0"
    Else
      MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
    End If
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
    <html><!-- InstanceBegin template="/Templates/LayoutTem.dwt" codeOutsideHTMLIsLocked="false" -->
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <!-- InstanceBeginEditable name="doctitle" -->
    <title>BabyBasics</title>
    <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
    <script language="JavaScript" type="text/JavaScript">
    <!--
    function MM_jumpMenu(targ,selObj,restore){ //v3.0
      eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
      if (restore) selObj.selectedIndex=0;
    }
    //-->
    </script>
    </head>
    <body>
    <div align="center">
      <table width="742" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="126" height="131" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
        <td width="616" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
        </tr>
        <tr>
          <td height="41" colspan="2" valign="top"><form name="form1" method="post" action="">
                  
                                              <p align="center">Search:
                                                  <input name="TxtSearch" type="text" id="TxtSearch">
                                                  <input name="BtnGo" type="submit" id="BtnGo" value="Go">
              </p>
              <p>&nbsp;</p>
              <table width="764" border="0">
                <tr>
                  <th width="140" height="26" scope="col"><select name="list_GiftShops" id="list_GiftShops" onChange="MM_jumpMenu('parent',this,0)">
                    <option selected>GIFTSHOPS...</option>
                    <option value="Standing%20Ovation.asp">Standing Ovation</option>
                    <option value="Standing%20Tributes.asp">Standing Tributes</option>
                    <option value="Sympathy%20Blankets.asp">Sympathy Blankets</option>
                    <option value="Etoile%20By%20Noel.asp">Etoile By Noel</option>
                    <option value="Everlasting%20Blooms.asp">Everlasting Blooms</option>
                    <option value="Hand%20Bouquets.asp">Hand Bouquets</option>
                    <option value="Table%20Bouquets.asp">Table Bouquets</option>
                    <option value="House%20Proud.asp">House Proud</option>
                    <option value="Lavendar%20Dreams.asp">Lavender Dreams</option>
                    <option value="Romance.asp">Romance</option>
                    <option value="Wedding.asp">Wedding</option>
                    <option value="Baby%20Basics.asp">Baby Basics</option>
                    <option value="New%20Mums.asp">New Mums</option>
                    <option value="Senses.asp">Senses</option>
                    <option value="Nurses%27%20Week.asp">Nurses' Week</option>
                    <option value="Wine%20&amp;%20Spirits.asp">Wine &amp; Spirits</option>
                    <option value="Wellness%20Baskets.asp">Wellness Baskets</option>
                    <option value="Friendship%20Month.asp">Friendship Month</option>
                    <option value="Fruitty%20Cheers.asp">Fruitty Cheers</option>
                    <option value="Chocolates.asp">Chocolates</option>
                  </select></th>
                  <th width="84" scope="col"><div align="center"><a href="GiftShop%201st%20Page.asp">Home</a></div></th>
                  <th width="115" scope="col"><div align="center"><a href="Contact%20Us.asp">Contact Us</a> </div></th>
                  <th width="111" scope="col"><div align="center"><a href="Promotion.asp">Promotion</a></div></th>
                  <th width="98" scope="col"><a href="Registration.asp">Register</a></th>
                  <th width="88" scope="col"><div align="center"><a href="Log%20In.asp">Log In</a> </div></th>
                  <th width="98" scope="col"><a href="Log%20Out.asp">Log Out</a> </th>
                </tr>
              </table>
              <p>&nbsp;          </p>
          </form>
            <!-- InstanceBeginEditable name="EditRegion3" -->
    <form action="" method="post" name="frmcat" id="frmcat">
      <table width="608" height="92" border="0">
        <% 
    While ((Repeat1__numRows <> 0) AND (NOT rsgiftshop.EOF)) 
    %>
        <tr>
            <td><p><img src="<%=(rsgiftshop.Fields.Item("Picture").Value)%>" width="112" height="91"></p>
              <p><%=(rsgiftshop.Fields.Item("Code").Value)%></p></td>
            <td><%=(rsgiftshop.Fields.Item("Name").Value)%></td>
            <td><%=(rsgiftshop.Fields.Item("Description").Value)%></td>
            <td><%=(rsgiftshop.Fields.Item("Price").Value)%></td>
            <td><img src="buy.gif" width="82" height="28"></td>
        </tr>
        <% 
      Repeat1__index=Repeat1__index+1
      Repeat1__numRows=Repeat1__numRows-1
      rsgiftshop.MoveNext()
    Wend
    %>
      </table>
      <p>&nbsp;</p>
      
      <table border="0" width="50%" align="center">
        <tr>
          <td width="23%" align="center">
            <% If MM_offset <> 0 Then %>
            <a href="<%=MM_moveFirst%>">First</a>
            <% End If ' end MM_offset <> 0 %>
          </td>
          <td width="31%" align="center">
            <% If MM_offset <> 0 Then %>
            <a href="<%=MM_movePrev%>">Previous</a>
            <% End If ' end MM_offset <> 0 %>
          </td>
          <td width="23%" align="center">
            <% If Not MM_atTotal Then %>
            <a href="<%=MM_moveNext%>">Next</a>
            <% End If ' end Not MM_atTotal %>
          </td>
          <td width="23%" align="center">
            <% If Not MM_atTotal Then %>
            <a href="<%=MM_moveLast%>">Last</a>
            <% End If ' end Not MM_atTotal %>
          </td>
        </tr>
      </table>
      <p>&nbsp;</p>
    </form>
    <p>&nbsp;</p>
            <!-- InstanceEndEditable --></td>
        </tr>
        <tr>
          <td height="1024">&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
    </div>
    </body>
    <!-- InstanceEnd --></html>
    <%
    rsgiftshop.Close()
    Set rsgiftshop = Nothing
    %>
    Last edited by vinyl-junkie; 08-31-2007 at 06:14 AM. Reason: Added code tags

  2. #2
    vinyl-junkie's Avatar
    Moderator

    Status
    Offline
    Join Date
    Sep 2005
    Posts
    721

    Re: i need help

    What does your script do? Read a database and write to a screen or what? A little more detail about that would help. Also, is your script giving you errors? A blank page? Something else? Please provide a little more detail regarding the problem.
    Music Around The World - Collecting tips, trade
    and want lists, album reviews, & more

  3. #3
    happybear's Avatar
    New User

    Status
    Offline
    Join Date
    Aug 2007
    Posts
    2

    Re: i need help

    is a detail page which is linked to the database. which i click a product on baby basics it opens a blank page.