<%@ LANGUAGE = "VBScript" %> <% '----------------------------------------------------------- ' ASPilot.com - Pilot Cart Froogle Feed Generator ' ------------------------------ ' Copyright © 2004 Spliethof Inc ' ' This file will generate a cut and paste text to populate a Froogle ' product feed to get your stuff into Froogle Dim strSQL, strTab, strLineOut, strURL, strNAME, strDESC, strIMGURL, strCAT, strPRICE Dim i Dim rsIN '----------------------------------------------------------- ' stripHTML ' -------------- ' Strips the HTML tags from the Desciption field ' Credit given to Scott Mitchell of ' www.4guysfromrolla.com/webtech/042501-1.shtml ' Modified By Chris Zwemke '----------------------------------------------------------- Function stripHTML(strHTML) 'Strips the HTML tags from strHTML strHTML = Replace(strHTML, vbCrLf, " ") 'CZ Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function '----------------------------------------------------------- ' ShowFroogleItemGroups ' -------------- ' Shows visible item's groups as comma-delimited links. '----------------------------------------------------------- Function ShowFroogleItemGroups(lngItemID) Dim rs, strSQL, strOutPut strSQL = "SELECT GroupID, Name, Descrip FROM tblGroups WHERE GroupID IN (SELECT GroupID FROM tblInventoryGroups WHERE ItemID "& CSQLEq(lngItemID) &") ORDER BY Name ASC" Set rs = cnPILOT.Execute(strSQL) If NOT rs.EOF Then Do Until rs.EOF strOutPut = strOutPut & rs("Name") & " > " rs.MoveNext Loop End If rs.Close : Set rs = Nothing strOutPut = Left(strOutPut, len(strOutPut)-3) ShowFroogleItemGroups = strOutPut End Function PilotInitialize If Not PilotPageBegin("default", Empty) Then Response.Redirect g.HomePageURL TemplateBeforePC strTab = VbTab strSQL = "SELECT tinv.ITEMID, tinv.ITEMNAME, tinv.DESCRIP, tinv.IMG, tinv.COST FROM TBLINVENTORY tinv WHERE SHOWIT<>0" Set rsIN = cnPILOT.Execute(strSQL) Response.Write "

" & VBCrLf Response.Write "product_url"&strTab&"name"&strTab&"description"&strTab&"image_url"&strTab&"category"&strTab&"price"&VBCrLf If NOT rsIN.EOF Then arrINV = rsIN.GetRows rsIN.Close : Set rsIN = Nothing If NOT IsEmpty(arrINV) Then i = 1 Do Until i > UBound(arrINV, 2) strURL = g.HomePageURL&"product.asp?specific="&Encrypt(arrINV(0,i)) & strTab strNAME = arrINV(1,i) & strTab strDESC = stripHTML(arrINV(2,i)) & strTab strIMGURL = strTab If arrINV(3,i)&"x" <> "x" Then strIMGURL = g.HomePageURL&"images/products/"&arrINV(3,i) & strTab strCAT = ShowFroogleItemGroups(arrINV(0,i)) & strTab strPRICE = arrINV(4,i) strLineOut = strURL & strNAME & strDESC & strIMGURL & strCAT & strPRICE & VBCrLf Response.Write strLineOut i=i+1 Loop End If End If Response.Write "

" TemplateAfterPC PilotTerminate %>