%@LANGUAGE="VBSCRIPT"%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% Dim rsWebCounter__ip, rsWebCounter__dnsip, rsWebCounter__browser, rsWebCounter__page rsWebCounter__browser = Request.ServerVariables("http_user_agent") rsWebCounter__dnsip = Request.ServerVariables("remote_host") rsWebCounter__ip = Request.ServerVariables("remote_addr") rsWebCounter__page = "scaleoffees.asp" %> <% set rsWebCounter = Server.CreateObject("ADODB.Recordset") rsWebCounter.ActiveConnection = MM_FCMPWeb_STRING rsWebCounter.Source = "{call dbo.sp_update_tblCounter_1('" + Replace(rsWebCounter__ip, "'", "''") + "','" + Replace(rsWebCounter__dnsip, "'", "''") + "','" + Replace(rsWebcounter__browser, "'", "''") + "','" + Replace(rsWebcounter__page, "'", "''") + "')}" rsWebCounter.LockType = 3 rsWebCounter.Open() %> <% Dim rsImageText__myFile rsImageText__myFile = "nthent" if (Request.QueryString("imgName") <> "") then rsImageText__myFile = Request.QueryString("imgName") %> <% set rsImageText = Server.CreateObject("ADODB.Recordset") rsImageText.ActiveConnection = MM_FCMPWeb_STRING rsImageText.Source = "{call dbo.Select_Image_Text('" + Replace(rsImageText__myFile, "'", "''") + "')}" rsImageText.CursorType = 0 rsImageText.CursorLocation = 2 rsImageText.LockType = 3 rsImageText.Open() rsImageText_numRows = 0 %>
| |
|||||||||
![]() |
|
|
||||||
|
<% If Not rsImageText.EOF Or Not rsImageText.BOF Then %>
<%=rsImageText.Fields.Item("imageShortDescription").Value%>
<% End If %>
|
||||||||