<% ' Databaseforbindelse - husk at angive sti til din database Set ConnW = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;" ConnW.Open DSN bruger = Session("ID") ' SQL foresp?rgsel strSQL = "Select pm.*, spobruger.username FROM pm INNER JOIN spobruger ON pm.bruger_sendt = spobruger.brugerID WHERE bruger_modt = '"&bruger&"' OR bruger_sendt = '"&bruger&"' ORDER BY dato DESC" ' Udf?r foresp?rgsel (rs indeholder nu resultatet) Set rsW = ConnW.Execute(strSQL) countW = rsW.RecordCount %> PM
<% for varW = 1 to countW %> <% IF rsW("bruger_modt") = bruger THEN sqlupdate = "UPDATE pm SET dato = dato, laest = 1 where msgID = '"&rsW("msgid")&"'" connW.Execute(sqlupdate) END IF rsW.MoveNext next ConnW.Close Set ConnW = Nothing %>
fra tekst
<%response.write(rsW("username"))%>  <%response.write(rsW("indhold"))%> 

Skriv en ny pm