% if len(request.QueryString) > 1000 then response.AppendToLog("Hack Stopped") : response.End() pos=InStr(request.QueryString,";") if pos > 0 then response.AppendToLog("Hack Stopped Instr") : response.End() session("thewho") = session("thewho") SiteSQLdatabase = "DB_169050_artworkb" ' SQL database SiteSQLServer = "s19.winhost.com" ' SQL database SiteSQLUsername = "DB_169050_artworkb_user" 'SQL username SiteSQLPassword = "bobbyart" 'SQL password SiteLocalPath = "d:\websites\artworkboutique.com" 'path on the local machine of the root folder eg: d:\lgoonline SitemerchantCode = "3345" 'ewebcart merchant code Siteurl = "www.artworkboutique.com/" 'full domain name" SiteEmail = "TheheARTheals@aol.com" SiteTitle = "Welcome to ArtworkBoutique.com" SiteAdminTitle = "ArtworkBoutique.com" SiteTablecolor = "#000000" ' Blue 'SiteTablecolor = "#ff0066" ' Pink SiteTableFillcolor = "#006699" ' Blue 'SiteTableFillcolor = "#ff6699" ' Pink siteduptitle = false ' False = Dont check for duplicate product title names set conn2 = Server.CreateObject("ADODB.Connection") 'ConnectString = "PROVIDER=SQLOLEDB;Data Source=" & SiteSQLServer & ";UID=" & SiteSQLUsername & ";PWD=" & SiteSQLPassword & ";DATABASE=" & SiteSQLdatabase ConnectString = "Data Source=tcp:s19.winhost.com;Initial Catalog=DB_169050_artworkb;User ID=DB_169050_artworkb_user;Password=bobbyart;Integrated Security=False;TrustServerCertificate=true;" conn2.open ConnectString Set rs = Server.CreateObject("ADODB.Recordset") 'Set rs1 = Server.CreateObject("ADODB.Recordset") SQLrs = "SELECT top 8 * FROM products WHERE feature = 1 ORDER BY featurepri" rs.Open SQLrs, conn2, 3, 3 %>
|
||||||||||||||||||||||||||||||||||||||||