<% Dim Conn, sConnString, rs Set Conn = Server.CreateObject("ADODB.Connection") sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\db1.mdb") & ";" Conn.Open(sConnString) sql = "SELECT * FROM pics WHERE pics.ID=" & Request.QueryString("ID") Set rs = Conn.Execute(sql) strComment=rs.Fields("Comment").Value strPic=rs.Fields("Name").Value Conn.Close Set Conn = nothing %>
Tourpar - Logo


<%=strComment%>

Web Designer:Levon K.Zmblyan