<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/MyCon.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_MyCon_STRING
Recordset1_cmd.CommandText = "SELECT P.CompanyID, P.Total, D.Name FROM Products AS P, Details AS D WHERE P.CompanyID = D.CompanyID ORDER BY P.Prod_ID  " 
Recordset1_cmd.Prepared = true
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
'Dim Repeat1__numRows
'Dim Repeat1__index
 
'Repeat1__numRows = 5
'Repeat1__index = 0
'Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
 
Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
 
Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last
 
' set the record count
Recordset1_total = Recordset1.RecordCount
 
' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
  Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
  Recordset1_numRows = 1
End If
 
' set the first and last displayed record
Recordset1_first = 1
Recordset1_last  = Recordset1_first + Recordset1_numRows - 1
 
' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
  If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
  End If
  If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_total
  End If
  If (Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
  End If
End If
%>
 
<%
' *** Recordset Stats: if we don't know the record count, manually count them
 
If (Recordset1_total = -1) Then
 
  ' count the total records by iterating through the recordset
  Recordset1_total=0
  While (Not Recordset1.EOF)
    Recordset1_total = Recordset1_total + 1
    Recordset1.MoveNext
  Wend
 
  ' reset the cursor to the beginning
  If (Recordset1.CursorType > 0) Then
    Recordset1.MoveFirst
  Else
    Recordset1.Requery
  End If
 
  ' set the number of rows displayed on this page
  If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
  End If
 
  ' set the first and last displayed record
  Recordset1_first = 1
  Recordset1_last = Recordset1_first + Recordset1_numRows - 1
 
  If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
  End If
  If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_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    = Recordset1
MM_rsCount   = Recordset1_total
MM_size      = Recordset1_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
Recordset1_first = MM_offset + 1
Recordset1_last  = MM_offset + MM_size
 
If (MM_rsCount <> -1) Then
  If (Recordset1_first > MM_rsCount) Then
    Recordset1_first = MM_rsCount
  End If
  If (Recordset1_last > MM_rsCount) Then
    Recordset1_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 = 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
%>
<html>
<head>
<title>...::: Company_Names with their Products...:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body>
<strong>SHOWING <%=(Recordset1_first)%> TO  <%=(Recordset1_last)%> RECORDS <br>
</strong><br>
<br>
<br>
<table width="588" height="27" align="center" bordercolor="#000000">
    <tr bgcolor="#CCFFFF">
      <td width="169"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Company 
        ID</strong></font></td>
      <td width="149"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Company 
        Name</strong></font></td>
      <td width="254"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Product 
        Name(s) / List</strong></font></td>
   </tr>
    </table>
<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
  <table width="588" height="27" align="center" bordercolor="#000000">
    <% 
 
 
   'set rsProd   = Server.CreateObject("ADODB.Recordset")
		'SQL = "SELECT * FROM Products "
		'where CompanyID = " &rsComp("CompanyID")
		 ' & "and Name is not null"
  			'RESPONSE.WRITE (SQL)
			'response.end
		'order by CompID, Total" 
		'rsProd.Open SQL , objConn , 1, 3
 
 	'set rsComp   = Server.CreateObject("ADODB.Recordset")
		'SQLComp = "SELECT  * From Details where CompanyID=" & rsProd("CompanyID") & "and Name is not null"
 
		'where CompanyID=" & rsProd("CompanyID") & "and Name is not null"
		'order by CompID, Total"
		'response.write SQLComp
		'response.End() 
		'rsComp.Open SQLComp , objConn , 1, 3
 
 
		'CName = rsComp("Name")
 
		%>
    <% 
	   'set rsComp   = Server.CreateObject("ADODB.Recordset")
		'SQLComp = "SELECT  * From Details where CompanyID=" & rsProd("CompanyID") & "and Name is not null"
 
		'where CompanyID=" & rsProd("CompanyID") & "and Name is not null"
		'order by CompID, Total"
		'response.write SQLComp
		'response.End() 
		'rsComp.Open SQLComp , objConn , 1, 3
 
		'CName = rsComp("Name")
		%>
    <% 'iRecordsShown = 1
	  'while not rsProd.EOF 'and iRecordsShown < rsProd.recordcount %>
    <tr> 	
      <td width="164" height="23" valign="top" bgcolor="#CCFFFF"><%=(Recordset1.Fields.Item("CompanyID").Value)%></td>
      <td width="150" valign="top" bgcolor="#CCFFFF"><%=(Recordset1.Fields.Item("Name").Value)%></td>
      <td width="258" valign="top" bgcolor="#CCFFFF"><%=(Recordset1.Fields.Item("Total").Value)%>
        <% 'response.write iRecordshown %>      </td>
      <td width="258" valign="top" bgcolor="#CCFFFF"><div align="center"><a href="Edit_Pro_List.asp?id=<%= Recordset1("CompanyID") %>&Prod=<%=Recordset1("Total")%>">EDIT</a></div></td>
    </tr>
    <%     'end if
 
'  iRecordsShown = iRecordsShown + 1
 
	  'rsProd.MoveNext
 
     'wend
 
	 'rsProd.close
'set rsProd = Nothing
'objConn.close
'set objConn = Nothing 
 
 
%>
  </table>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
<br>
<br>
 TOTAL RECORDS FOUND: <%=(Recordset1_total)%> <br>
<br>
<% If MM_offset <> 0 Then %>
<A HREF="<%=MM_moveFirst%>">First</A> 
<% End If ' end MM_offset <> 0 %>
 
<% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveNext%>">Next</A> 
<% End If ' end Not MM_atTotal %>
 
<% If MM_offset <> 0 Then %>
<A HREF="<%=MM_movePrev%>">Previous</A> 
<% End If ' end MM_offset <> 0 %>
<% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveLast%>">Last</A> 
<% End If ' end Not MM_atTotal %>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

<% 
 
'on error resume next
 
set objConn = Server.CreateObject("ADODB.Connection")
NextID= request.QueryString("id")
Prod = request.QueryString("prod")
set rsNews = server.CreateObject("ADODB.Recordset")
mydsn = "ArabNext"
objConn.open mydsn
sql = "Select * from Products where CompanyID=" &NextID  & " And Total =" &Prod
 
response.write (SQL) & "<br>"
'response.end
 
'for each items in request.QueryString
'response.write  (items &  " = " )
'response.write request.QueryString(items) & "<br>"
'Next
 
'response.End()
 
rsNews.open sql, objConn, 1,3
%>
 
 
<html>
<head>
<title>..:::: EDIT PRODUCTS  FORM ..::::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body>
<table width="473" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0099FF">
                <tr> 
 
    <td width="469" bgcolor="#0099FF"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"><strong>Edit 
      Products Details ...</strong></font></td>
                </tr>
                <tr> 
 
    <td valign="top"> 
      <div align="center"> 
 
        <form action="process_EditProdList.asp?ID=<%= NextID %>&Prod=<%= Prod %>" method="post" name="form1" onSubmit="MM_validateForm('txtTitle','','R','txtNews','','R');return document.MM_returnValue">
                        <br>
 
          <table width="95%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td width="29%"><strong><font color="#0066FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"> Product Name</font></strong></td>
              <td width="71%"><font color="#0066FF"> 
                <input name="PName" type="text" id="PName" value="<% = Prod %>" size="40">
                </font></td>
            </tr>
            <tr> 
              <td colspan="2"><strong> <font color="#FFFFFF" size="1">.</font></strong>              </td>
            </tr>
            <tr> 
              <td colspan="2"><strong> <font color="#FFFFFF" size="1">.</font></strong>              </td>
            </tr>
            <tr> 
              <td colspan="2"><strong> <font color="#FFFFFF" size="1">.</font></strong>              </td>
            </tr>
            <tr> 
              <td>&nbsp;</td>
              <td><input name="Submit2" type="submit" onClick="MM_validateForm('Title','','R','Detail','','R','Rates','','R');return document.MM_returnValue" value="Edit-Products"></td>
            </tr>
          </table>
 
        </form>
      </div></td>
                </tr>
              </table>
</body>
</html>

<% 
   'ON ERROR RESUME NEXT
 
 
 
 
	'----------------------------------------------------------------- 
 
   compid = request.QueryString("id")
   prodname = request.QueryString("Prod")
 
    set objConn  = Server.CreateObject("ADODB.Connection")
    myDSN = "ArabNext"
    objConn.Open myDSN
 
 	set rsTech   = Server.CreateObject("ADODB.Recordset")
   SQL = "SELECT * FROM Products where CompanyID=" &compid & "And Total =" &prodname
 
   rsTech.Open SQL , objConn , 1, 3
	response.write SQL
	response.End
 
 
    rsTech("Total") 	 	= (prodname)   'Request("PName")
 
	rsTech.update
 
 
	'rsTech.close
	'set rsTech = nothing
 
 
 %>
 
 
<html>
<head>
<title>::... Al-Rehman RentACar....::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<SCRIPT language=Javascript src="links.js">
</SCRIPT>
<script language="JavaScript" type="text/JavaScript">
 
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
 
function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
</head>
 
<body bgcolor="#0099FF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
  <table>
    <tr> 
      <td> <% server.Execute("menu.asp")%> <br></td>
    </tr>
    <tr> 
      <td><table width="44%" border="1" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td bgcolor="#FFFF00">&nbsp;</td>
            <td bgcolor="#FF3300">&nbsp;</td>
            <td bgcolor="#0000FF">&nbsp;</td>
            <td bgcolor="#660000">&nbsp;</td>
            <td bgcolor="#FF00FF">&nbsp;</td>
          </tr>
        </table>
        <div align="center"></div></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF">
        <table align="center">
          <tr>
            <td bgcolor="#0099FF">
<div align="center"><strong><font color="#FFFFFF" size="3" face="Garamond, Wingdings 3">The 
                particual Company Details has been Edited Successfuly!<br>
                <br>
                </font><font color="#FFFFFF" size="2"><strong>THE DETAILS YOUVE EDITED IN THE DATABASE ARE LISTED BELOW</strong></font><font color="#FFFFFF" size="3" face="Garamond, Wingdings 3"><br>
                </font></strong>
  <table border="1" align="center">
    <caption>
    <em><strong><font face="Verdana, Arial, Helvetica, sans-serif"> &quot;Details </font></strong></em>
     &quot;   
    </caption>
    <tr>
      <th width="107" align="left" scope="col"><font color="#FFFFFF">Product<strong> Name</strong></font></th>
      <th width="328" align="center" scope="col"><strong><font color="#FFFFFF" size="2">
        <%' = request("txtname") %>
      </font></strong></th>
    </tr>
    <tr>
      <th align="left" scope="col"><font color="#FFFFFF">Company_ID</font></th>
      <th align="center" scope="col">
        <font color="#FFFFFF" size="2"> ID :<strong>  
        <%' = request.QueryString("id") %>
        </strong></font></th>
    </tr>
  </table>
  <strong><font color="#FFFFFF" size="3" face="Garamond, Wingdings 3"><br>
  </font></strong></div></td>
          </tr>
        </table>
        <table align="center" bordercolor="#FFFFFF">
          <tr>
            <th scope="col"><form name="form1" method="post" action="ah1_add.asp">
              <label>
              <input type="submit" name="button" id="button" value="Add More Data">
              </label>
                                    </form>            </th>
          </tr>
        </table>
        <br>
      <br></td>
    </tr>
  </table>
  <br>
  <br>
</div>
<br>
</body>
 
 
 
</html>