<% option explicit
dim Conn
dim sConnStr
dim SQLQuery
dim Rs1
dim Rs2
dim SvarPaaIndlaeg
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sConnStr
SvarPaaIndlaeg = false
' Hvis det er svar på indlæg
if Request("IndlaegNr") <> "" then
SvarPaaIndlaeg = true
' Alle felter i indlægget
SQLQuery = "select * from Indlaeg where IndlaegNr = " & Request("IndlaegNr")
Set Rs2 = Conn.Execute(SQLQuery)
end if
%>
=========== Turbulent Party Info ===========
join
the maillist
maillisten
giver info om kommende fester.
