---

Jeg har arbejdet på et forum i et stykke tid nu, og mangler blot
lige at få lavet nogen småting før jeg er tilfreds.
Jeg har dog et problem med hvordan jeg skal lave en funktion til
at oprette en ny post i forumet. Jeg kan sagtens få den til at
oprette en ny post, men ved dog ikke helt hvordan jeg kan gøre
sådan at når man opretter en ny post giver man også automatisk
indlægget det svar ID som den ny oprettede tråd har i databasen.

Her er koden til siden som viser beskderne:
<%
Const sConnectMySQL = "Driver={MySQL ODBC 3.51
Driver};server=localhost;database=xxxxxx;option=16834;uid=xxxx;pw
d=xxxxxxx"
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open sConnectMySQL
strSQL = "select* from Forum_indlaeg WHERE (ID AND Svarid = " &
Request.Querystring("ID") & ")"
set rs = Conn.execute(strSQL)

Set objRs = Conn.Execute("SELECT COUNT(ID) AS records FROM
Forum_indlaeg;")
response.write objRs

Do Until rs.EOF
%>

<div id="indhold_overskrift">
<%=RS("Navn")%> <b> Oprettet den. </b><%=RS("Dato")%>
</div>
<div id="indhold_besked">
<%=RS("Kommentar")%>
</div><br>
<%
RS.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>

Og her er koden til siden som indsætter beskederne:
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Const sConnectMySQL = "Driver={MySQL ODBC 3.51
Driver};server=localhost;database=xxxxx;option=16834;uid=xxxxxxx;
pwd=xxxxxxx"
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open sConnectMySQL

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select* from Forum_indlaeg"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

   rs.AddNew
   rs("Navn") = Request.form("Navn")
   rs("Emne") = Request.form("Emne")
   rs("Kommentar") = Request.form("Kommentar")
   rs("Dato") = date()
   rs("Forumid") = Request.Querystring("id")
   rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials