Gennem længere tid har jeg nu arbejdet på et foum, og er næsten færdig. Jeg mangler dog at få færdig gjordt funktionen til at oprette en ny post. Jeg har lavet sådan at den nye post bliver oprettet ved at en side smider brugerens input ind i databasen (navn, emne og kommentar) sammentidig med at databasen giver disse informationer et ID. Problemmet er så bare at jeg gerne vil have dette ID, som informationerne får over under svar_ID så brugerens kommentar bliver vist som det første når man kommer ind på tråden.
Her er koden til siden som viser beskederne:
<%
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
%>