<%@ Language=VBScript %> <%Response.Expires = -1 %> <%Response.ExpiresAbsolute = Now() - 1 %> <%Response.AddHeader "pragma", "no-cache" %> <%Response.AddHeader "cache-control", "private" %> <%Response.CacheControl = "no-cache" %> <% Response.Expires = -1000 Response.Buffer = True Response.Clear %> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strName = Request.Form("txtName") strLastName = Request.Form("txtLastName") strEmail = Request.Form("txtEmail") strUserName = Request.Form("txtUserName") strPassword = Request.Form("txtPassword") strQuestion = Request.Form("txtQuestion") strAnswer = Request.Form("txtAnswer") strAddress = Request.Form("txtAddress") strCity = Request.Form("txtCity") strCountry = Request.Form("txtCountry") strDate = Now() blnValid = True strValid = "

" & _ "Kayıt Hatası!

" & vbCrLf & _ "
    " & vbCrLf if strName = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen ilk adınızı giriniz.

    " end if if strLastName = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lüfen soyadınızı giriniz.

    " end if if strEmail = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen e-mail'inizi giriniz.

    " end if if strUserName = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen kullanıcı adı belirleyiniz.

    " end if if strPassword = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen şifrenizi giriniz.

    " end if if strQuestion = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen gizli soru seçiniz.

    " end if if strAnswer = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen gizli soru cevabınızı giriniz.

    " end if if strAddress = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen adresinizi detaylı bir şekilde giriniz.

    " end if if strCity = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lütfen yaşadığınız şehri belirleyiniz.

    " end if if strCountry = "" then blnValid = False strValid = strValid & "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "" & vbCrLf &_ "

    # Lüten ülke belirleyin.

    " end if strValid = strValid & "

    Devam Ediniz

    " else strValid = strValid & Response.Redirect ("register.asp") end if if blnValid = True then strDSNPath = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};pwd=password; DBQ=" & Server.MapPath("db\System_DB.mdb") strSQL_Insert = "INSERT INTO CustRecords ( Cust_Name, Cust_LastName, Email, Cust_Username, Cust_Password, Cust_Question, Cust_Answer, Cust_Address, Cust_City, Cust_Country, Entry_Date)" & _ " VALUES ('" & strName & "','" & strLastName & "','" & strEmail & "','" & strUserName & "','" & strPassword & "','" & strQuestion & "','" & strAnswer & "','" & strAddress & "','" & strCity & "','" & strCountry & "','" & strDate & "');" Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open strDSNPath On error resume next Conn.Execute strSQL_Insert Conn.Close Set Conn = Nothing if err.number <> 0 then strValid = "

    " & _ "Özürdileriz! Bu bilgiler daha önce girilmiş.
    " & _ "
    Lütfen başka E-Mail Adresi ve Kullanıcı Adı giriniz.
    " & _ "

    " & _ "

    Devam Ediniz

    " else strValid = "

    Sayın " & strName & " " & strLastName & "." & _ "

    Kaydınız başarı ile yapıldı.


    " & _ "
    " &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "" &_ "
    Kullanıcı Adı-" & strUserName & "
    Şifreniz-" & strPassword & "
    " &_ "

    Lütfen giriş yapınız!.

    " end if end if %> <%Response.Expires = -1 %> <%Response.ExpiresAbsolute = Now() - 1 %> <%Response.AddHeader "pragma", "no-cache" %> <%Response.AddHeader "cache-control", "private" %> <%Response.CacheControl = "no-cache" %> <% Response.Expires = -1000 Response.Buffer = True Response.Clear %> Internet Hizmetleri | www.fethiyehost.com
     
     

    <% Response.Write strValid %>