 |
|
|
|
|
|
|
<%
On Error Resume Next
Dim rs ' RecordSet
Dim rsWatches ' RecordSet Watches
Dim conn ' Connection
Dim strSQL ' SQL str command
Response.Flush
Set rs = Server.CreateObject("adodb.Recordset")
Set rsWatches = Server.CreateObject("adodb.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")
' 'd:\hosting\jxwebmaster\jxwebmaster\access_db\watches.mdb'
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("watches.mdb") & ";"
If err.number <> 0 then
Response.Write "Err.Number:" & err.number & "
"
Response.Write "Err.Description:" & err.Description & "
"
Response.Write "Err.Source:" & err.Source & "
"
Response.Write "Location: 3
"
End If
strSQL = "SELECT b_ID, b_Name, PercentOff FROM Get_Specials_BrandsList ORDER BY PercentOff DESC"
rs.open strSQL, conn,1 ,1
%>
<%
If err.number <> 0 then
Response.Write "Err.Number:" & err.number & "
"
Response.Write "Err.Description:" & err.Description & "
"
Response.Write "Err.Source:" & err.Source & "
"
Response.Write "Location: 4
"
Else
If (Not rs.EOF) or (Not rs.BOF) Then
Do While Not rs.EOF
%>
| #222'"
onmouseover="this.style.cursor='hand';"
onmouseout="this.style.cursor='auto';">
|
<% rs.MoveNext
If Not rs.EOF Then %>
#222'"
onmouseover="this.style.cursor='hand';"
onmouseout="this.style.cursor='auto';">
|
<% rs.MoveNext
Else %>
|
<% End If %>
<%
Loop
' Move to the first position so we can reprint text list of watches...
rs.MoveFirst
End If
End If
%>
<% Response.Flush %>
|
<%
If err.number <> 0 then
Response.Write "Err.Number:" & err.number & "
"
Response.Write "Err.Description:" & err.Description & "
"
Response.Write "Err.Source:" & err.Source & "
"
Response.Write "Location: 5-1
"
Response.Flush
End If
rs.Close
strSQL = "SELECT b_ID, b_Name, PercentOff FROM Get_Specials_BrandsList ORDER BY b_Name"
rs.open strSQL, conn,1 ,1
If err.number <> 0 then
Response.Write "Err.Number:" & err.number & "
"
Response.Write "Err.Description:" & err.Description & "
"
Response.Write "Err.Source:" & err.Source & "
"
Response.Write "Location: 5
"
Response.Flush
Else
strSQL = "SELECT Get_Specials_WatchsList.* FROM Get_Specials_WatchsList"
rsWatches.open strSQL, conn,1 ,1
If err.number <> 0 then
Response.Write "Err.Number:" & err.number & "
"
Response.Write "Err.Description:" & err.Description & "
"
Response.Write "Err.Source:" & err.Source & "
"
Response.Write "Location: 6
"
Response.Flush
End If
If Not rs.EOF Then
Do While Not rs.EOF
%>
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
#222">
<% = rs("b_Name") & " " & rs("PercentOff") & " % OFF" %>
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
|
<%
Do
%>
">
<%
Response.Write rsWatches("b_Name") & ", " & rsWatches("s_Name") & ", "
Response.Write rsWatches("w_Gender") & "'s watch, "
Response.Write "Model# " & rsWatches("w_Model") & " "
Response.Write "Special Price: " & FormatCurrency( rsWatches("w_Special_Price") )
%>
|
<% rsWatches.MoveNext
If rsWatches.EOF Then Exit Do
Loop While rsWatches("b_Name") = rs("b_Name")
rs.MoveNext
Loop
End If
End If
If err.number <> 0 then
Response.Write "Err.Number:" & err.number & "
"
Response.Write "Err.Description:" & err.Description & "
"
Response.Write "Err.Source:" & err.Source & "
"
Response.Write "Location: 7
"
End If
rs.Close
rsWatches.Close
conn.Close
Set rs = Nothing
Set rsWatches = Nothing
Set conn = Nothing
If err.number <> 0 then
Response.Write "Err.Number:" & err.number & "
"
Response.Write "Err.Description:" & err.Description & "
"
Response.Write "Err.Source:" & err.Source & "
"
Response.Write "Location: 6
"
End If
%>
|
|
|
© Copyright 2002 Pacific Bay Watch. All rights reserved.
Pacific Bay Watch
1000 Bristol St. North Suite 17-353,
Newport Beach, CA 92660
Phone: 1-312-402-7000
Please, read terms and conditions
|
|
|
