Jeg er lige væk et øjeblik, sorry. Jeg lægger koden og er tilbage om senest 10-15 min.
<!-- #include virtual="/includes/_protect.asp" -->
<!-- #include virtual="/includes/_data.asp" -->
<!-- #include virtual="/includes/_functions.asp" -->
<%
Dim Mainarea, Conn, topcatID, subcatID, RStop, RSsub
Mainarea = 4
%>
<!-- #include virtual="/includes/dbconnopen.asp" -->
<%
topcatID = Request.QueryString("topcatID")
subcatID = Request.Querystring("subcatID")
Set RStop = Conn.Execute("SELECT mainID FROM tabel1 WHERE mainID='" & topcatID & "'")
Set RSsub = Conn.Execute("SELECT topID, child, author, title, tekst, dato FROM tabel2 WHERE topID=" & subcatID & "")
If Request.Form("mode") = "newreply" Then
Dim rchild, rauthor, rdato
rchild = RSsub("topcatID")
rauthor = Session("username")
rdato = Day(Date) & "/" & Month(Date) & "/" & Year(Date) & " " & Time()
Conn.Execute("INSERT INTO tabel3 (rchild, rauthor, rtekst, rdato) VALUES (" & _
"" & rchild & ", " & _
"'" & rauthor & "', " & _
"'" & Trim(SQLEncode(Request.Form("newr"))) & "', " & _
"'" & Dato & "')")
Conn.Close
Response.Redirect "debate.asp?topcatID=<%=topcatID%>&subcatID=<%=subcatID%>"
End If
%>
<html>
<head>
<!-- #include virtual="/includes/_header.asp" -->
<title><%=FormatText(RSsub("title"))%></title>
</head>
<body onload="funClock();">
<!-- #include virtual="/includes/_start.asp" -->
<div class="content">
<%
Dim vCreated
vCreated = RSsub("dato")
vCreated = addZ(day(vCreated)) & "-" & addZ(month(vCreated)) & "-" & year(vCreated) & " " & addZ(hour(vCreated)) & ":" & addZ(minute(vCreated)) & ":" & AddZ(Second(vCreated))
%>
<div class="headline"><%=FormatText(RSsub("title"))%></div>
<b>Oprettet af <%=FormatText(RSsub("author"))%> <%=Server.HTMLEncode(vCreated)%></b><br><br>
<%=FormatText(RSsub("tekst"))%>
<%
Dim ssubID, RSs
ssubID = RSsub("topicID")
Set RSs = Conn.Execute("SELECT replyID, rchild, rauthor, rtekst, rdato FROM tabel3 WHERE rchild=" & RSsub("topID") & "")
If Not RSs.EOF Then
Do Until RSs.EOF
%>
<%=FormatText(RSs("rauthor"))%> <%=FormatText(RSs("rdato"))%><br>
<%=FormatText(RSs("rtekst"))%>
<%
RSs.MoveNext
Loop
End If
%>
<form name="newpost" method="post" action="debate.asp">
<h1><input type="hidden" name="mode" value="newreply"></h1>
<textarea name="newr" id="newr" cols="30" rows="16"></textarea><br><br>
<input type="submit" name="new" value="Send">
</form>
<%
RStop.Close
Set RStop = Nothing
RSsub.Close
Set RSsub = Nothing
RSs.Close
Set RSs = Nothing
Conn.Close
Set Conn = Nothing
%>
</div>
<!-- #include virtual="/includes/_end.asp" -->
</body>
</html>
