PROMOTIONAL STANDARD ERASER ST2065
Standard Eraser
|
ST2065
|
|
We have these available in red, blue, white and yellow for you.
|
images/productmenu/line-menu-whitegrey.gif);'"
strHtml += strFontTagOpen & strHeadingtext & strFontTagclose
strHtml += ""
strHtml += ""
strHtml += "
"
strHtml += "| "
strHtml += " | "
strHtml += "
"
strHtml += ""
strHtml += ControlChars.CrLf
strHtml += "
"
strHtml += ""
If Request.QueryString("pno") <> "" Then
strSQL = "SELECT TOP 5 tblNewProduct.fldProductid, tblNewProduct.fldProductNo, tblNewProduct.fldProductDescription "
strSQL += "FROM tblNewProduct INNER JOIN "
strSQL += "tblNewProduct tblNewProduct_1 ON tblNewProduct.fldCatagoryid = tblNewProduct_1.fldCatagoryid "
strSQL += "WHERE (tblNewProduct_1.fldProductNo = '" & Request.QueryString("pno") & "') AND (tblNewProduct.fldProductNo <> '" & Request.QueryString("pno") & "') AND (tblNewProduct.fldUseonWebsite = 1) "
strSQL += "ORDER BY tblNewProduct.fldRanking DESC "
Dim connection As New System.Data.SqlClient.SqlConnection(connectionString.dbsettings)
Dim cmdSQL As New System.Data.SqlClient.SqlCommand
connection.Open()
cmdSQL.CommandText = strSQL
cmdSQL.CommandType = Data.CommandType.Text
cmdSQL.Connection = connection
Dim myreader As System.Data.SqlClient.SqlDataReader
myreader = cmdSQL.ExecuteReader
While myreader.Read()
strURL = website.websiteurl & "promotional_products/" & Replace(myreader.GetString(1) & "-" & myreader.GetString(2), " ", "_") & ".html"
strCaption = myreader.GetString(1) & " " & myreader.GetString(2)
strHtml += ""
strHtml += ControlChars.CrLf
strHtml += ""
strHtml += ""
strHtml += ""
strHtml += "![](" & website.websiteurl & "images/products_sm/" & myreader.GetString(1) & ".jpg) "
strHtml += " | "
strHtml += " "
strHtml += ""
strHtml += ""
strHtml += "" & myreader.GetString(2) & ""
strHtml += "
"
strHtml += prices(myreader.GetInt32(0))
strHtml += "
"
strHtml += "Instant Quote ![](" & website.websiteurl & "images/rightside/arrow-blue.gif) "
strHtml += " | "
strHtml += " "
strHtml += " "
strHtml += " | "
intCount = intCount + 1
End While
connection.Close()
If intCount = 0 Then
strSQL = "SELECT TOP 5 tblNewProduct.fldProductid, dbo.tblNewProduct.fldProductNo, tblNewProduct.fldProductDescription "
strSQL += "FROM tblCatagorySideCat INNER JOIN "
strSQL += "tblNewProduct tblNewProduct_1 ON tblCatagorySideCat.fldCatagoryid = tblNewProduct_1.fldCatagoryid INNER JOIN "
strSQL += "tblCatagorySideCat tblCatagorySideCat_1 ON tblCatagorySideCat.fldSideCatid = tblCatagorySideCat_1.fldSideCatid INNER JOIN "
strSQL += "tblNewProduct ON tblCatagorySideCat_1.fldCatagoryid = tblNewProduct.fldCatagoryid "
strSQL += "WHERE (tblNewProduct_1.fldProductNo = 'A337 ') AND (tblNewProduct.fldProductNo <> 'a337') AND (tblNewProduct.fldUseonWebsite = 1) "
strSQL += "ORDER BY tblNewProduct.fldRanking DESC"
Dim connectionString2 As New connectionstring
Dim connection2 As New System.Data.SqlClient.SqlConnection(connectionString.dbsettings)
Dim cmdSQL2 As New System.Data.SqlClient.SqlCommand
connection2.Open()
cmdSQL2.CommandText = strSQL
cmdSQL2.CommandType = Data.CommandType.Text
cmdSQL2.Connection = connection2
Dim myreader2 As System.Data.SqlClient.SqlDataReader
myreader2 = cmdSQL2.ExecuteReader
While myreader2.Read()
strURL = website.websiteurl & "promotional_products/" & Replace(myreader2.GetString(1) & "-" & myreader2.GetString(2), " ", "_") & ".html"
strCaption = myreader2.GetString(1) & " " & myreader2.GetString(2)
strHtml += ""
strHtml += ControlChars.CrLf
strHtml += ""
strHtml += ""
strHtml += ""
strHtml += "![](" & website.websiteurl & "images/products_sm/" & myreader2.GetString(1) & ".jpg) "
strHtml += " | "
strHtml += " "
strHtml += ""
strHtml += ""
strHtml += "" & myreader2.GetString(2) & ""
strHtml += "
"
strHtml += prices(myreader2.GetInt32(0))
strHtml += "
"
strHtml += "Instant Quote "
strHtml += " | "
strHtml += " "
strHtml += " "
strHtml += " | "
End While
connection2.Close()
End If
ElseIf Request("sc") <> "" Then
strSQL = "SELECT TOP 8 tblNewProduct.fldProductid, tblNewProduct.fldProductNo, tblNewProduct.fldProductDescription, "
strSQL += "tblCatagorySideCat_1.fldSideCatid "
strSQL += "FROM tblCatagorySideCat tblCatagorySideCat_1 INNER JOIN "
strSQL += "tblNewProduct ON tblCatagorySideCat_1.fldCatagoryid = tblNewProduct.fldCatagoryid "
strSQL += "WHERE (tblCatagorySideCat_1.fldSideCatid = " & Request("sc") & ") AND (tblNewProduct.fldUseonWebsite = 1)"
strSQL += "ORDER BY tblNewProduct.fldRanking DESC "
Dim connection As New System.Data.SqlClient.SqlConnection(connectionString.dbsettings)
Dim cmdSQL As New System.Data.SqlClient.SqlCommand
connection.Open()
cmdSQL.CommandText = strSQL
cmdSQL.CommandType = Data.CommandType.Text
cmdSQL.Connection = connection
Dim myreader As System.Data.SqlClient.SqlDataReader
myreader = cmdSQL.ExecuteReader
intCount = 0
While myreader.Read()
intCount += 1
strURL = website.websiteurl & "promotional_products/" & Replace(myreader.GetString(1) & "-" & myreader.GetString(2), " ", "_") & ".html"
strCaption = myreader.GetString(1) & " " & myreader.GetString(2)
strHtml += ""
strHtml += ControlChars.CrLf
strHtml += ""
strHtml += ""
strHtml += "| "
strHtml += ""
strHtml += " | "
strHtml += ""
strHtml += ""
strHtml += "" & myreader.GetString(2) & ""
strHtml += "
"
strHtml += prices(myreader.GetInt32(0))
strHtml += "
"
strHtml += "Instant Quote "
strHtml += " | "
strHtml += " "
strHtml += " "
strHtml += " | "
If intCount = 4 Then
strHtml += "
"
strHtml += "
"
strHtml += ControlChars.CrLf
strHtml += "
"
strHtml += ""
strHtml += "| "
strHtml += " "
strHtml += " | "
strHtml += "
"
strHtml += "
"
strHtml += ControlChars.CrLf
strHtml += "
"
strHtml += ""
End If
End While
connection.Close()
'------ If shop
ElseIf Request("shop") <> "" Then
'------ If recycled shop
If Request("shop") = 0 Then
strSQL = "Select DISTINCT TOP 8 "
strSQL += "tblNewProduct.fldProductid, tblNewProduct.fldProductNo, tblNewProduct.fldProductDescription, tblNewProduct.fldRanking "
strSQL += "FROM .tblNewProduct INNER JOIN "
strSQL += "tblShopcatagory ON tblNewProduct.fldCatagoryid = tblShopcatagory.fldcatagoryid "
strSQL += "WHERE (tblNewProduct.fldUseonWebsite = 1) AND (tblNewProduct.fldRecyled = 1) "
strSQL += "ORDER BY dbo.tblNewProduct.fldRanking DESC "
Else
'------ Other shops
strSQL = "SELECT TOP 8 tblNewProduct.fldProductid, tblNewProduct.fldProductNo, tblNewProduct.fldProductDescription "
strSQL += "FROM tblNewProduct INNER JOIN "
strSQL += "tblShopcatagory ON tblNewProduct.fldCatagoryid = tblShopcatagory.fldcatagoryid "
strSQL += "WHERE (tblNewProduct.fldUseonWebsite = 1) AND (tblShopcatagory.fldShopid = " & Request("shop") & ")"
strSQL += "ORDER BY tblNewProduct.fldRanking DESC "
End If
Dim connection As New System.Data.SqlClient.SqlConnection(connectionString.dbsettings)
Dim cmdSQL As New System.Data.SqlClient.SqlCommand
connection.Open()
cmdSQL.CommandText = strSQL
cmdSQL.CommandType = Data.CommandType.Text
cmdSQL.Connection = connection
Dim myreader As System.Data.SqlClient.SqlDataReader
myreader = cmdSQL.ExecuteReader
intCount = 0
While myreader.Read()
intCount += 1
strURL = website.websiteurl & "promotional_products/" & Replace(myreader.GetString(1) & "-" & myreader.GetString(2), " ", "_") & ".html"
strCaption = myreader.GetString(1) & " " & myreader.GetString(2)
strHtml += ""
strHtml += ControlChars.CrLf
strHtml += ""
strHtml += ""
strHtml += "| "
strHtml += ""
strHtml += " | "
strHtml += " "
strHtml += ""
strHtml += ""
strHtml += "" & myreader.GetString(2) & ""
strHtml += "
"
strHtml += prices(myreader.GetInt32(0))
strHtml += "
"
strHtml += "Instant Quote "
strHtml += " | "
strHtml += " "
strHtml += " "
strHtml += " | "
If intCount = 4 Then
strHtml += "
"
strHtml += "
"
strHtml += ControlChars.CrLf
strHtml += "
"
strHtml += ""
strHtml += "| "
strHtml += " "
strHtml += " | "
strHtml += "
"
strHtml += "
"
strHtml += ControlChars.CrLf
strHtml += "
"
strHtml += ""
End If
End While
connection.Close()
End If
strHtml += "
"
strHtml += "
"
strHtml += ControlChars.CrLf
strHtml += "
"
Response.Write(strHtml)
%>
