Welcome

<%response.write mcontact%> <%IF MCONTACT="Trendsetter Yarns" then MFILENAMES=lcase(MID(REQUEST.SERVERVARIABLES("url"),2)) Set ObjConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=trenddata" objConn.Open strConnection strQuery = "SELECT * FROM hitcount where filename='" & mfilenames & "'" set objRS = objConn.Execute(strQuery) mcounter=0 if not objrs.eof then if len(trim(objrs("logged")))<>0 then mcounter=mcounter+cint(objrs("logged")) end if if len(trim(objrs("counter")))<>0 then mcounter=mcounter+cint(objrs("counter")) end if end if%>
<%response.write mcounter %> times viewed since 04/27/12 <%end if%> <%if strblockprice="Y" then%>
Enable Pricing <%else%>
Disable Pricing <%end if%> <%end if%>