<%
' Formdan gelen değerleri alalım
name=Request.Form("name"  )  
description=Request.Form("description"  )  
is_active=Request.Form("is_active"  )  
has_date_restriction=Request.Form("has_date_restriction"  )  
version=Request.Form("version"  )  
 
 
' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum.  
If name="" or description="" or is_active=""   or has_date_restriction=""  or version=""  Then  
Response.Write "Formda eksik bilgi bıraktınız.<br><br>" 
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>" 
Response.Write "<a href=javascript<b></b>:history.back( )>Geri dönmek için tıklayınız.</a>" 
Else  
 
' Gelen değerleri kontrol ettik. şimdi kayıt edelim. 
 mysql_server = "localhost"
   mysql_user = "root"
   mysql_pass = ""
   mysql_db = "veritabani"

Set db = Server.createObject("Adodb.Connection")
   db.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & mysql_server & "; UID=" & mysql_user & "; pwd=" & mysql_pass & "; db=" & mysql_db & ";"

Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,version)  values ('" & name & "','" & description & "','" & is_active & "','" & has_date_restriction & "','" & version & "')" )  
Response.Write " Kayıt başarıyla gerçekleşti.<br><br>" 
Response.Write " Tüm kayıtlara bakmak için <a href=muhasebe.asp>Tıklayınız.</a>" 
 
End If  
 
%>