GuitarParadise.com - Electric Guitars - Bass Guitars - Acoustic Guitars
GuitarParadise is your online source for guitar reviews, guitar amps & guitar accessories!

MUSIC GEAR SEARCH
 

<%'
Get the latest Guitar News & Reviews via Email!
%> email address:
Get $45 off any order over $300
Get the latest guitar gear news and guitar reviews with our new RSS feed!        

<% strTag = Request("tag") strAdminEdit = Request("edit") '============================================================================================================================ Sub DisplayTaggedProducts(strTag) strCJAID = "10381297" strCJPID = "2273950" '================================================================================================ 'open the database connection Set objConn = Server.CreateObject("ADODB.Connection") 'objConn.Open "Provider=SQLOLEDB;Data Source=SQL-Server-IP;User Id=DB_user_id;Password=Db_pwd;Initial Catalog=Your_DB_Name;" 'objConn.Open "Provider=SQLOLEDB;Data Source=207.182.248.251;User Id=lonjinDB;Password=dragon1;Initial Catalog=lonjinDB;" 'objConn.Open "Driver={SQL Server};Server=207.182.248.251;UID=lonjinDB;PWD=dragon1;Language=us_english;Database=lonjinDB;DSN=" 'objConn.Open "Provider=sqloledb;Data Source=66.186.25.129,1433;Initial Catalog=ebooksearch;User Id=ebooksearch;Password=dragon1;" objConn.Open "Provider=sqloledb;Data Source=SQL325.MYSITE4NOW.COM;Initial Catalog=Guitarparadise;User Id=guitarp;Password=dragon1;" sqlString = "SELECT TOP * FROM ITEMS_master_list items " & _ "INNER JOIN ITEMS_item_x_tag xtags ON xtags.item_id = items.uid " & _ "INNER JOIN ITEMS_tag tags ON tags.tag_uid = xtags.tag_id " & _ "WHERE tags.tag_name = '" & strTag & "' ORDER BY items.uid ASC" 'Response.Write sqlString Set objRec = objConn.Execute(sqlString) if objRec.BOF and objRec.EOF then Response.Write "No Records were found." else do while not objRec.EOF strItemID = objRec("uid") strItemTitle = objRec("item_name") strItemURL = objRec("item_url") strImageURL = objRec("item_image") 'Response.Write "
" 'Response.Write "
" 'Response.Write "
" 'Response.Write objRec("uid") & " - " & objRec("item_name") & " - " & objRec("item_image") & "

" 'Response.Write "
" 'Response.Write "
" 'Response.Write strItemTitle & "
" strItemCode = GetMFProductLink(strItemID, strItemURL, strImageURL, strItemTitle,strCJAID,strCJPID) Response.Write strItemCode 'CreateMFProductLink strItemID, strItemURL, strImageURL, strItemTitle,strCJAID,strCJPID Response.Write "

" objRec.MoveNext loop set objRec = Nothing end if End Sub '============================================================================================================================== Sub CreateMFProductLink(strProductID, strProductURL, strImageURL, strProductTitle,strCJAID,strCJPID) 'strCJAID = Session("cj_aid") 'strCJPID = Session("cj_pid") strCJLinkServer = CJLinkServer strCJImageServer = CJImageServer 'Response.Write vbCrLf & vbCrLf & vbCrLf & "CreateMFProductLink called..." & VbCrLf 'create the product string (html_code) 'strProdLink = "" & _ ' "" & _ ' "
" & _ ' strProductTitle & "" strEncodedProductTitle = strProductTitle strEncodedProductTitle = Replace(strEncodedProductTitle,"-","") 'remove any dashes strEncodedProductTitle = Replace(strEncodedProductTitle,"'","") strEncodedProductTitle = Replace(strEncodedProductTitle,"/","") strEncodedProductTitle = Replace(strEncodedProductTitle,"&","") strEncodedProductTitle = Replace(strEncodedProductTitle,"®","") strEncodedProductTitle = Replace(strEncodedProductTitle,"%","-") strEncodedProductTitle = Replace(strEncodedProductTitle," ","-") strEncodedProductTitle = Replace(strEncodedProductTitle,"--","-") If strProductURL <> "" Then strURL = strProductURL Else strURL = "http%3A%2F%2Fwww.musiciansfriend.com%2Fproduct%2F" & strEncodedProductTitle & "%3Fsku%3D" & strProductID End If strProdLink = "" & _ "
" & _ strProductTitle & "" if strAdminEdit = "on" then strProdLink = strProdLink & " - edit" end if 'example of cj link pulled 15 Jan 2007 ' 'Hughes & Kettner Triamp MK II Tube Guitar Amplifier Head ' 'example mf link pulled 6 Jul 2006 'Homespun Exploring DADGAD Guitar (DVD)
Homespun Exploring DADGAD Guitar (DVD) '

'strProdLink = Replace(strProdLink,"39318881",strSiteID) strProdLink = Replace(strProdLink,"&","&") Response.Write strProdLink Response.Write vbCrLf & vbCrLf & VbCrLf End Sub '============================================================================================================================== Function GetMFProductLink(strProductID, strProductURL, strImageURL, strProductTitle,strCJAID,strCJPID) 'strCJAID = Session("cj_aid") 'strCJPID = Session("cj_pid") strCJLinkServer = CJLinkServer strCJImageServer = CJImageServer ''create the product string (html_code) 'strProdLink = "" & _ ' "" & _ ' "
" & _ ' strProductTitle & "" strEncodedProductTitle = strProductTitle strEncodedProductTitle = Replace(strEncodedProductTitle,"-","") 'remove any dashes strEncodedProductTitle = Replace(strEncodedProductTitle,"'","") strEncodedProductTitle = Replace(strEncodedProductTitle,"/","") strEncodedProductTitle = Replace(strEncodedProductTitle,"&","") strEncodedProductTitle = Replace(strEncodedProductTitle,"®","") strEncodedProductTitle = Replace(strEncodedProductTitle,"%","-") strEncodedProductTitle = Replace(strEncodedProductTitle," ","-") strEncodedProductTitle = Replace(strEncodedProductTitle,"--","-") 'strImageURL = Replace(strImageURL,"/tn/","/regular/") If strProductURL <> "" Then strURL = strProductURL Else strURL = "http%3A%2F%2Fwww.musiciansfriend.com%2Fproduct%2F" & strEncodedProductTitle & "%3Fsku%3D" & strProductID End If strProdLink = "" & _ "
" & _ strProductTitle & "" 'strAdminEdit = "on" if strAdminEdit = "on" then strProdLink = strProdLink & " - [edit] " end if 'example mf link pulled 6 Jul 2006 'Homespun Exploring DADGAD Guitar (DVD)
Homespun Exploring DADGAD Guitar (DVD) '

strProdLink = Replace(strProdLink,"&","&") GetMFProductLink = strProdLink End Function '============================================================================================= Function CJLinkServer Dim myArray(3) myArray(0) = "www.jdoqocy.com" myArray(1) = "www.dpbolvw.net" myArray(2) = "www.tkqlhce.com" myArray(3) = "www.anrdoezrs.net" RandomNumber = Int(UBound(myArray) * Rnd + 1) strServer = myArray(RandomNumber) CJLinkServer = strServer End Function '============================================================================================= Function CJImageServer Dim myArray(3) myArray(0) = "www.ftjcfx.com" myArray(1) = "www.lduhtrp.net" myArray(2) = "www.tqlkg.com" myArray(3) = "www.awltovhc.com" RandomNumber = Int(UBound(myArray) * Rnd + 1) strServer = myArray(RandomNumber) CJImageServer = strServer End Function '=================================================================================================== ' An inverse to Server.URLEncode Function URLDecode(str) Dim re set re = new RegExp str = Replace(str, "+", " ") re.Pattern = "%([0-9a-fA-F]{2})" re.Global = True URLDecode = re.Replace(str, GetRef("URLDecodeHex")) end Function ' Replacement function for the above Function URLDecodeHex(match, hex_digits, pos, source) URLDecodeHex = chr("&H" & hex_digits) End Function '==================================================================================================================== %>