<%
id = Request.QueryString("id")
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "")
String = Replace(String, CHR(10), "
")
FormatStr = String
End Function
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("board.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
Set RS = conn.Execute("select * from message where messageID =" & id)
Set RS2 = conn.Execute("select * from reply where r_show=yes and messageID ='" & id & "' order by replyid")
%>
|
# <%=right("0000" & RS("messageID"),5)%> : <%=rs("subject")%>
|
&mode=closetopic">ZBRIŠI |
| <%=FormatStr(rs("message"))%>
|
 .gif" align="middle">
Vpis : <%=rs("name")%> dne : <%=rs("postdate")%> |
<%
RS.Close
do until rs2.eof
%>
<%
rs2.movenext
loop
rs2.close
conn.Close
set conn = nothing
mode = "reply"
%>
ODGOVORI