%
sub GetItemData( Return, ItemArray )
dim con
dim rs
strDBPath =request.servervariables("appl_physical_path")
RequestIP = request.servervariables("remote_addr")
set con=server.createobject("adodb.connection")
conStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & strDBPath & "test/wlinventory.mdb;"
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "test/wlinventory.mdb;Persist Security Info=False"
'conStr = "Access"
' response.write("
" & conStr)
con.ConnectionString = conStr
con.open
set rst=server.createobject("adodb.recordset")
strSQL = "select SKU, Product_Description, price, Weight from pricelist where SKU in ("
for each Item in ItemArray
strSQL=strSQL & "'" & Item & "',"
next
strSQL=strSQL & "1) order by SKU"
set rst=con.execute(strSQL)
response.write("
|
|
|
Woodpeggers The Patented WoodpeggerTM The ultimate storage rack.... stores everything! Quick & easy to install - All mounting instructions & hardware included - Patented, removable, pegs are made of solid Maple for added strength - Three Sizes: 45" with 22 removable pegs holds 150 lbs., 24" with 12 removable pegs holds 75 lbs., 17" with 8 removable pegs holds 50 lbs. - Mount multiple Woodpeggers above & below one another for maximum use of space. You can never have enough Woodpeggers in your garage!
|
Software error:Cannot connect to the database dbi:mysql:db101195354:db95.perfora.net, dbo101195354, wlelise at /kunden/homepages/32/d89596320/htdocs/WoodLogic/getproductdata.pl line 79. For help, please send mail to the webmaster (webmaster@woodlogic.com), giving this error message and the time and date of the error. |