<% hid = Request.QueryString("id") if not IsNumeric(hid) then hid = "0" if IsNull(hid) then hid = "0" if hid="" then hid = "0" sql = "SELECT * FROM Haberler WHERE id=" & hid set rs = conn.execute(sql) if Not rs.EOF then%>
<%=rs("baslik")%>
<%yazi = rs("yazi") yazi = replace(yazi,Chr(13),"
") %> <%=yazi%>
<%if rs("resim")<>"" then%>" border="0"><%end if%>
<% end if rs.close() %>