Group Study Exchange 2001

<% ' -------------------------------------------------------------------------------- ' Dette eksempel er skrevet af Dennis Knappe ' Og omskrevet af Lars Hansen/Ole H. hansen - logiweb.dk ' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware ' -------------------------------------------------------------------------------- Const adOpenKeyset = 1 Const adLockOptimistic = 3 strMode = Request.QueryString("mode") tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news.mdb") & ";UID=admin;PWD=;" If Request.Form("Gem") <> "" Then strNavn = Trim(Request.Form("Overskrift")) strKommentar = Trim(Request.Form("Kommentar")) Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM news WHERE (ID = 0)" rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic If (rs.BOF Or rs.EOF) Then rs.AddNew rs("Overskrift") = strNavn rs("Kommentar") = strKommentar rs("Dato") =Date() rs.Update End If rs.Close Set rs = Nothing End If %> Group Study Exchange 2001

Our sponsors
We would like to express our gratitude to the following sponsors for their exceptional contribution to this trip.

www.rotary.org

Rotary District 1470
www.rotary.dk