Çünkü db nesnen yok, kodlarının düzenlenmiş hali aşağıda;
<%
' 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
%>
teşekkür ederim kardeşim...
sadece
Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,v ersion) values ('" & name & "','" & description & "','" &
satırındaki db y, bag yamam yeterli oldu ben mysql bağlantısını farklı sayfada yapmıştım. tekrar bağlanmama gerek yok.
<%
' 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.
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
%>