|
 |
|
|
|
<%
dim cn, rs, strSQL
dim itemno, itemprice
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "ctsds"
Set rs = Server.CreateObject("ADODB.Recordset")
On Error Resume Next
strSQL = "SELECT RecKey, ConfigID, ConfigVal, ConfigName FROM Config WHERE ConfigID='hps'"
rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
itemno = Trim(rs("ConfigVal"))
rs.Close
strSQL = "SELECT RecKey, ConfigID, ConfigVal, ConfigName FROM Config WHERE ConfigID='hpsprice'"
rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
itemprice = rs("ConfigVal")
rs.Close
if itemno <> "" then
dim itemid, itemname, description, infolink, thumblink, sdesc
strSQL = "SELECT RecKey, ItemID, ItemName, Description, InfoLink, ImgLink, ThumbLink, AccID, Price, Cost, ItemType, ShortDesc FROM ItemMast WHERE ItemID='" & itemno & "'"
rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
itemid = rs("ItemID")
itemname = rs("ItemName")
description = rs("Description")
infolink = rs("InfoLink")
thumblink = rs("ThumbLink")
sdesc = rs("ShortDesc")
rs.Close
end if
cn.Close
Set rs = Nothing
Set cn = Nothing
%>
 |
<%=itemname %>
<%=sdesc %> |
|
more info...
|
<%=FormatCurrency(itemprice) %>
|
|
|
|
|