<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% %> <% Id = request("AdNum") %> <% %> <% Dim rsDetail Dim rsDetail_numRows Set rsDetail = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM Ads WHERE Add_ID = " & Id rsDetail.Open SQL, objADO rsDetail_numRows = 0 %> <% set CmdClick = Server.CreateObject("ADODB.Command") CmdClick.ActiveConnection = MM_connpacific_STRING CmdClick.CommandText = "UPDATE Ads SET cl_Viewed = cl_Viewed + 1 WHERE Add_ID = " + Replace(CmdClick__varAd, "'", "''") + " " CmdClick.CommandType = 1 CmdClick.CommandTimeout = 0 CmdClick.Prepared = true CmdClick.Execute() %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsclasshot_numRows = rsclasshot_numRows + Repeat1__numRows %>

Your Pick!
<% If rsDetail.EOF And rsDetail.BOF Then %> No Record of that Ad <% End If ' end rsDetail.EOF And rsDetail.BOF %>

<% If Not rsDetail.EOF Or Not rsDetail.BOF Then %>

<%=(rsDetail.Fields.Item("Ad_title").Value)%>	Ad# <%=(rsDetail.Fields.Item("Add_ID").Value)%>
<%Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") objFile = Request.ServerVariables("SCRIPT_NAME") ImagePath = Server.MapPath("classimages\") ImagePath = ImagePath & "\" & (rsDetail.Fields.Item("Ad_Photo").Value) If objFileSystem.FileExists(ImagePath) then%> "width="75"> <% Else %> <% End If %> ','Win2','scrollbars=yes,width=200,height=200')">More Picts	<%=(rsDetail.Fields.Item("Ad_description").Value)%>
Contact: <%=(rsDetail.Fields.Item("cl_name").Value)%>
Phone: <%=(rsDetail.Fields.Item("cl_phone").Value)%>
Email: <%=(rsDetail.Fields.Item("cl_email").Value)%>	This Ad Viewed <%=(rsDetail.Fields.Item("cl_Viewed").Value)%> Times

<% End If ' end Not rsDetail.EOF Or NOT rsDetail.BOF %>

<% rsDetail.Close() Set rsDetail = Nothing %>