<% ' -------------------------------------------------------------------------------- ' 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

dot.jpg (665 bytes) Want to join GSE next year ?

Rotary district 1470 (Copenhagen and North Sealand) will exchange GSE-Teams with the following districts next year:
Punjab, Indien (District 3090): 8th January - 4th February 2002
British Columbia, Canada (District 5080): 11th May - 18th June 2002
Please contact district GSE Chairman Finn O. Møller on ccc8827@vip.cybercity.dk for brochures or further information