<% If Request.querystring("Send") <> "" Then response.charset = "iso-8859-9" tarih = now() email = request.form("email") grupid = 1 Set ODBC = Server.CreateObject("ADODB.Connection") ODBC.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("http://www.tanir.com.tr/ekstraweb/akarnakliyat/tr/yonetim/data/akar-mail.mdb")&"" Set kayit = ODBC.Execute("Insert into emailliste (grupid,email,tarih) values ('"&grupid&"','"&email&"','"&tarih&"')") Set kayit = nothing response.write "Tebrikler, Başarıyla Kayıt Oldunuz." ODBC.Close If Err <> 0 Then msg = "Mesajınız Gonderilememiştir..E-Mail Giriniz" & Err.Description else msg = "Teşekkürler Mesajınız Başarıyla İletildi..." End If End If %> <%If Request.querystring("Send") <> "" Then%> <%End If%>