<% @Language="VbScript" CODEPAGE="1254" %>
<%
Dim Ad,Soyad,Adres,Sehir,Telefon
Ad=Request.Form("Ad")
Soyad=Request.Form("Soyad")
Adres=Request.Form("Adres")
Sehir=Request.Form("Sehir")
Telefon=Request.Form("Telefon")
if len(Ad)=0 then
Response.Write "Yanlis"
end if
%>
<html>
<head>
<META content="text/html; charset=windows-1254"; http-equiv=Content-Type>
<META content="tr" http-equiv=Content-Language>
<META content="no-cache" http-equiv=pragma>
<title>Form Kayıt Sayfası</title>
</head>
<body bgcolor="#ffffff">
<hr color="#CC0000">
<%
Dim VeriTabani,Yol,BNad
VeriTabani = Server.MapPath("db/Bes2.mdb")
Yol = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & VeriTabani
Set BNad = Server.CreateObject("ADODB.Connection")
BNad.Open(Yol)
Dim ilkSQL
ilkSQL = "INSERT INTO Genel (Ad,Soyad,Adres,Telefon,Sehir) "
ilkSQL = ilkSQL & "VALUES ('" & Ad
ilkSQL = ilkSQL & "','" & Soyad & "','" & Adres & "','" & Sehir & "','" & Telefon & "'"
ilkSQL = ilkSQL & ")"
Set Kaydetmece=BNad.Execute(ilkSQL)
Set Kaydetmece=nothing
BNad.Close
Set BNad=nothing
Response.Write "<center>Kaydınız başarıyla girilmiştir.</center>"
%>
<hr color="#CC0000">
</body>
</html>
teşekkürler şimdiden