<%@ CodePage = 28599 LCID = 1055 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% ewCurSec = 0 ' Initialise ' User levels 'Const ewAllowAdd = 1 'Const ewAllowDelete = 2 'Const ewAllowEdit = 4 'Const ewAllowView = 8 'Const ewAllowList = 8 'Const ewAllowReport = 8 'Const ewAllowSearch = 8 'Const ewAllowAdmin = 16 %> <% ' Initialize common variables x_Id = Null x_Adi = Null x_Soyadi = Null x_Meslegi = Null x_Gorevi = Null x_eMail = Null x_KurumAdi = Null x_Dairesi = Null x_Subesi = Null x_Adres = Null x_Telefon = Null x_Fax = Null x_Aciklama = Null xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "..\fpdb\cnapOnKayit.mdb;" %> <% Response.Buffer = True ' Get action sAction = Request.Form("a_add") If (sAction = "" Or IsNull(sAction)) Then sKey = Request.Querystring("key") If sKey <> "" Then sAction = "C" ' Copy record Else sAction = "I" ' Display blank record End If Else ' Get fields from form x_Id = Request.Form("x_Id") x_Adi = Request.Form("x_Adi") x_Soyadi = Request.Form("x_Soyadi") x_Meslegi = Request.Form("x_Meslegi") x_Gorevi = Request.Form("x_Gorevi") x_eMail = Request.Form("x_eMail") x_KurumAdi = Request.Form("x_KurumAdi") x_Dairesi = Request.Form("x_Dairesi") x_Subesi = Request.Form("x_Subesi") x_Adres = Request.Form("x_Adres") x_Telefon = Request.Form("x_Telefon") x_Fax = Request.Form("x_Fax") x_Aciklama = Request.Form("x_Aciklama") End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "C": ' Get a record to display If Not LoadData(sKey) Then ' Load Record based on key Session("ewmsg") = "No Record Found for Key = " & sKey conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "Kayitlist.asp" End If Case "A": ' Add If AddData() Then ' Add New Record Session("ewmsg") = "Kayit isleminiz yapilmistir" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "Kayitlist.asp" End If End Select %> Genç Bilişimciler Derneği

MCSE semineri ön kayit formu

Formdaki alanları gerçekçi bilgilerle doldurunuz.

Kurum adı, dairesi ve şubesi alanları kurumlarda çalışanlar içindir.

Açıklama kısmına mutlaka bu kursu neden almak istediğinizi ve sizin için önemini belirten kısa bir yazı yazmanızı bekliyoruz.

* bulunan alanları mutlaka doldurunuz.

 
Adınız* ">
Soyadınız* ">
Mesleğiniz* ">
Göreviniz* ">
e-Mail* ">
Kurum Adı ">
Dairesi ">
Şubesi ">
Adres*
Telefon* ">
Cep* ">
Açıklama*

NOT: İletmek istediğiniz mesajları açıklama kısmına yazabilirsiniz.

©mcanbolat
 

<% conn.Close ' Close Connection Set conn = Nothing %> <% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value sKey ' - Variables setup: field variables Function LoadData(sKey) Dim sKeyWrk, sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy sKeyWrk = "" & AdjustSql(sKey) & "" sSql = "SELECT * FROM [Kayit]" sSql = sSql & " WHERE [Id] = " & sKeyWrk sGroupBy = "" sHaving = "" sOrderBy = "" If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents x_Id = rs("Id") x_Adi = rs("Adi") x_Soyadi = rs("Soyadi") x_Meslegi = rs("Meslegi") x_Gorevi = rs("Gorevi") x_eMail = rs("eMail") x_KurumAdi = rs("KurumAdi") x_Dairesi = rs("Dairesi") x_Subesi = rs("Subesi") x_Adres = rs("Adres") x_Telefon = rs("Telefon") x_Fax = rs("Fax") x_Aciklama=rs("Aciklama") End If rs.Close Set rs = Nothing End Function %> <% '------------------------------------------------------------------------------- ' Function AddData ' - Add Data ' - Variables used: field variables Function AddData() Dim sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy ' Add New Record sSql = "SELECT * FROM [Kayit]" sSql = sSql & " WHERE 0 = 1" sGroupBy = "" sHaving = "" sOrderBy = "" If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 rs.AddNew ' Field Adi sTmp = Trim(x_Adi) If Trim(sTmp) = "" Then sTmp = Null rs("Adi") = sTmp ' Field Soyadi sTmp = Trim(x_Soyadi) If Trim(sTmp) = "" Then sTmp = Null rs("Soyadi") = sTmp ' Field Meslegi sTmp = Trim(x_Meslegi) If Trim(sTmp) = "" Then sTmp = Null rs("Meslegi") = sTmp ' Field Gorevi sTmp = Trim(x_Gorevi) If Trim(sTmp) = "" Then sTmp = Null rs("Gorevi") = sTmp ' Field eMail sTmp = Trim(x_eMail) If Trim(sTmp) = "" Then sTmp = Null rs("eMail") = sTmp ' Field KurumAdi sTmp = Trim(x_KurumAdi) If Trim(sTmp) = "" Then sTmp = Null rs("KurumAdi") = sTmp ' Field Dairesi sTmp = Trim(x_Dairesi) If Trim(sTmp) = "" Then sTmp = Null rs("Dairesi") = sTmp ' Field Subesi sTmp = Trim(x_Subesi) If Trim(sTmp) = "" Then sTmp = Null rs("Subesi") = sTmp ' Field Adres sTmp = Trim(x_Adres) If Trim(sTmp) = "" Then sTmp = Null rs("Adres") = sTmp ' Field Telefon sTmp = Trim(x_Telefon) If Trim(sTmp) = "" Then sTmp = Null rs("Telefon") = sTmp ' Field Fax sTmp = Trim(x_Fax) If Trim(sTmp) = "" Then sTmp = Null rs("Fax") = sTmp ' Field Aciklama sTmp = Trim(x_Aciklama) If Trim(sTmp) = "" Then sTmp = Null rs("Aciklama") = sTmp rs.Update rs.Close Set rs = Nothing AddData = True End Function %>