%@LANGUAGE="VBSCRIPT"%> <% Session("Agent") = Request.QueryString("affid") Session("Shop") = "sourceinspiration" Session("Return") = "http://www.sourceinspiration.com" Session("dsn") = "SourceInspiration" If Session("qnty") = "" then Session("qnty") = 0 If Session("total") = "" then Session("total") = 0 Set objBCap = Server.CreateObject("MSWC.BrowserType") If objBCap.Browser = "IE" then xHeight = 180 xHeight2 = 240 xHeight3 = "width=680,height=480,left=90,top=0" xCenter = ",left=180,top=50" Else ' Browser = "Netscape" xHeight = 300 xHeight2 = 320 xHeight3 = "width=680,height=480,screenx=90,screeny=0" xCenter = ",screenx=280,screeny=160" End if Session("xHeight") = xHeight Session("xHeight2") = xHeight2 Session("xCenter") = xCenter %>