<%@ Language="VBScript"%> <% If Len(Request.Cookies("CID")) <> 0 AND Request.Cookies("CID") = Request.ServerVariables("REMOTE_ADDR") Then Application("PhotoHits") = (Application("PhotoHits") + 1) Else Response.Cookies("CID") = Request.ServerVariables("REMOTE_ADDR") Response.Cookies("CID").Expires = Date + 1 Application("CurrentUser") = (Application("CurrentUser") + 1) Application("PhotoHits") = (Application("PhotoHits") + 1) End If %> Dr. Akmal Hussain
<%=Request.QueryString("name")%>
<% Dim intGal intGal = Request.QueryString("gallery") Dim sqlThumbs, objRsThumbs sqlThumbs = "SELECT PHOTO_ID, THUMB FROM TBLPHOTOITEM WHERE ENABLED = 1 AND GAL_ID = " & intGal Set objRsThumbs = objCon.Execute(sqlThumbs) %> <% While Not objRsThumbs.EOF Response.Write("") For thbCount = 1 to 4 If Not objRsThumbs.EOF Then Response.Write("") objRsThumbs.MoveNext Else Response.Write("") End If Next Response.Write("") Wend %>
") Response.write("") Response.Write("") Response.Write("") Response.Write("