<% dim USER_AGENT, IS_IE, IS_NN USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT") IS_IE = InStr(USER_AGENT,"MSIE") IS_FX = InStr(USER_AGENT,"Firefox") IS_NN = InStr(USER_AGENT,"Netscape") IS_SF = InStr(USER_AGENT,"Safari") if IS_IE then a = 1 elseif IS_NN then a = 2 elseif IS_FX then a = 2 elseif IS_SF then a = 2 else a = 2 end if Set objConn = Server.CreateObject("ADODB.Connection") Set objRec = Server.CreateObject("ADODB.Recordset") objConn.Open MM_shop1_STRING SQL = "SELECT * FROM dbo.tbl_coupon Where id = '1'" objRec.Open SQL, objConn%> MemoriesInOil.com - Mailing List Sign-Up
" border="0" ALT="Memories in oil - Frame order page" width="179" height="75">
   
 
<%objRec.close() Set objConn = nothing%>