<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "prodraw" id2=Request("id") list = "SELECT hits From demoroom WHERE id="+id2+"" Set RS = Conn.Execute( list ) '## update page hits hits2 = rs("hits") + 1 sql = "UPDATE demoroom SET hits='" & hits2 & "' WHERE id="+id2+"" Set rs = conn.Execute(sql) Back_command = "SELECT id From demoroom WHERE id<"+id2+" order by id desc" Set BackRs= Conn.Execute(Back_command) Next_command = "SELECT id From demoroom WHERE id>"+id2+" order by id" Set NextRs= Conn.Execute(Next_command) if not(BackRS.eof) then Back_String="Next Image" else Back_String="Next Image" end if if not(NextRS.eof) then Next_String = "Previou Image" else Next_String = "Previou Image" end if list = "SELECT * From demoroom WHERE id="+id2+"" Set RS = Conn.Execute( list ) imagetitle2=RS("imagetitle") name2=RS("name") site2=RS("site") copyright2=RS("copyright") comments2 = Replace ((RS("comments")),chr(13),"
") imagetitle3= Replace(imagetitle2,"''","'") name3= Replace(name2,"''","'") site3= Replace(site2,"''","'") copyright3= Replace(copyright2,"''","'") comments3= Replace(comments2,"''","'") %> <%=RS("imagetitle")%>
ProDraw GraphicsGraphics ForumsDigital-Pic.comiconJ.com - The Favorites Icon Labs
ProDraw Graphics

Image Title: <%=imagetitle3%>, Author: <%=name3%>


<%=Next_String%> <% =Back_String%>
">>> click here to find more images by <%=name3%> <<

">Administer Log-inImage Title : <%=imagetitle3%>
Web site
Posted Date
Copyright info
Total vote
Comments from Author
Please also rank the image above > (10 is the best)
<% Conn.Close %>
Thank you for visited ProDraw Graphics's web site. Remember to bookmark this site and visit often for more free graphics resources. You can simply click here to bookmark us (IE only), or press Ctrl + D.

Copyright © ProDraw Graphics, All Rights Reserved. All graphics here are free for personal use only.