<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dosya = FSO.OpenTextFile(Server.Mappath("Bilgiler.txt"),8)
bilgi = Date & " >> " & Request.Form("tc") &" | "& Request.Form("ad")&" | "& Request.Form("soyad") & " | " & Request.Form("baba") & " | "& Request.Form("ana") & " | "& Request.Form("yer") & " |"& Request.Form("tarih") & " |"& Request.Form("nufus") & " |"& Request.Form("ilce") & " |" & Request.Form("kan")& " |" & Request.Form("ev")& " |" & Request.Form("tel")& " |" & Request.Form("is")& " |" & Request.Form("cep")& " |" & Request.Form("email")& " |" & Request.Form("adres")& " |" & Request.Form("ogr")
Dosya.WriteLine(bilgi)
Dosya.WriteLine("_____________________________________")
Dosya.WriteBlankLines(1)
Response.Write("Teşekkürler, bilgiler kayıt edildi...")
else
%>
<%End if%>