Asp Yardım

<!--#include file ="vt.asp"--> 
  <% 
  komut=request.Form("komut") 
   
  function temizle(metin) 
  temizle=replace(metin,"'",chr(34)) 
  temizle=replace(temizle,vbcrlf,"<br>") 
  temizle=trim(temizle) 
  end function 
   
  '==============================================YENİ==================================================== 
  kull_ad=temizle(request.Form("kull_ad")) 
  sifre=temizle(request.Form("sifre")) 
  email=temizle(request.Form("mail")) 
  cinsiyet=request.Form("cinsiyet") 
  yas=request.Form("yas") 
  ulke=request.Form("ulke") 
  sehir=request.Form("sehir") 
  kendim=temizle(request.Form("kendim")) 
  tip=0 
  medeni=request.Form("medeni") 
  egitim=request.Form("egitim") 
  isi=temizle(request.Form("isi")) 
  boy=request.Form("boy") 
  vucut=request.Form("vucut") 
  sac=request.Form("sac") 
  goz=request.Form("goz") 
  gelir=request.Form("gelir") 
   
  sohbet="False" 
  arkadaslik="False" 
  cinsellik="False" 
  uzun="False" 
  evlilik="False" 
   
  if request.Form("iliski1")<>"" then sohbet=request.Form("iliski1") 
  if request.Form("iliski2")<>"" then arkadaslik=request.Form("iliski2") 
  if request.Form("iliski3")<>"" then cinsellik=request.Form("iliski3") 
  if request.Form("iliski4")<>"" then uzun=request.Form("iliski4") 
  if request.Form("iliski5")<>"" then evlilik=request.Form("iliski5") 
   
  session("ad")=kull_ad 
  session("mail")=email 
   
  'onay kodu 
  function koduret() 
  randomize timer 
  koduret=Int(100000 * rnd()) 
  if len(koduret)<5 then koduret 
  end function 
  kod=koduret() 
   
  kullok=true 
  kul=kull_ad 
   
  if kul="admin" or lcase(kul)="admin" then kullok=false 
  if kul="administrator" or lcase(kul)="administrator" then kullok=false 
  if kul="ADMIN" or ucase(kul)="ADMIN" then kullok=false 
  if kul="ADMINISTRATOR" or ucase(kul)="ADMINISTRATOR" then kullok=false 
  if kul="gecepartneri" or lcase(kul)="gecepartneri"  then kullok=false 
  if kul="GECEPARTNERI" or ucase(kul)="GECEPARTNERI" then kullok=false 
   
  set rs=bag.execute("Select * from [Üyeler] where [Kullanıcı Adı]='" & kull_ad & "'") 
  if not rs.eof or kullok=false then  
  %> 
  <link href="dosyalar/style.css" rel="stylesheet" type="text/css"> 
  <div align="center" class="black11"><img src="images/resimyok.jpg" width="75" height="75" align="absmiddle"><br><br><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=40886796&url=#" onClick="history.back()"class="blu11" data-href="#" onClick="history.back()"class="blu11">Bu Kullanıcı Adı Daha Önceden Alınmış yada Yasaklı<br>Buraya Tıklayarak Bir Başkasını Deneyin</a></div> 
  <% 
  response.End() 
  end if 
  set rs=bag.execute("Select * from [Üyeler] where [email]='" & email & "'") 
  if not rs.eof or email="gecepartneri@gecepartneri.com" then  
  %> 
  <link href="dosyalar/style.css" rel="stylesheet" type="text/css"> 
  <div align="center" class="black11"><img src="images/resimyok.jpg" width="75" height="75" align="absmiddle"><br><br><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=40886796&url=#" onClick="history.back()"class="blu11" data-href="#" onClick="history.back()"class="blu11">Bu Email Adresi Daha Önceden Kaydedilmiş<br>Buraya Tıklayarak Bir Başkasını Deneyin</a></div> 
  <% 
  response.End() 
  end if 
  sql="insert into [Üyeler] ([Kullanıcı Adı],[Şifre],[Email],[cinsiyeti],[Yaşı],[Şehir],[Ülkesi],[Kendisi],[Kod],[Sohbet],[Arkadaşlık],[Cinsellik],[Uzun Süreli],[Evlilik],paket,[Medeni Hali],[Eğitimi],[İşi],[Boyu],[Vücudu],[Saçı],[Gözü],[Geliri],tarih) VALUES ('"& _ 
  kull_ad&"','"&sifre&"','"&email&"','"&cinsiyet&"',"&yas&",'"&sehir&"','"&ulke&"','"&kendim&"',"&kod&","&sohbet&","&arkadaslik&","&cinsellik&","&uzun&","&evlilik&","&tip&",'" & medeni & "','"& egitim & "','" & isi & "','" & boy & "','" & vucut & "','" & sac & "','" & goz & "','" & gelir & "','" & date & "')" 
   
  'response.Write(sql) 
  'response.End() 
  set rs=bag.Execute(sql) 
   
   
  '==============================================YENİ==================================================== 
  '==============================================YENİ EMAİL ONAY KODU==================================================== 
  set rs=bag.Execute("Select [id] from Üyeler order by id desc") 
  id=rs("id") 
  'mail atan kisim 
  body="Sayın "&kull_ad&" sitemize yaptığınız Üyelik başvurusunu tamamlamak için onay kodunu gerekli yere giriniz yada aşağıdaki linke Tıklayınız" 
  body=body&"<br><br><br>" 
  body=body&"<strong>ONAY KODUNUZ : </strong> "&kod&"<br><br><br>" 
  body=body&"<strong>Kullanıcı adınız : </strong> "&kull_ad&"<br>" 
  body=body&"<strong>Şifreniz : </strong> "&sifre&"<br><br>" 
  body=body & "<a href='http://www.gecepartneri.com/onaykodu.asp?komut=Onay&id=" & id & "&kod=" & kod & "'>http://www.gecepartneri.com/onaykodu.asp?komut=Onay&id=" & id & "&kod=" & kod & "</a>"  &  "<br><br><br>" 
  'onaykodu.asp?kul="&kull_ad&"mail="&rs("email") 
  topbody="<div style='font-size:11px;font-family:verdana'><strong>Gecepartneri.Com</strong> Müşteri Hizmetleri<br><a href='http://www.GecePartneri.com' target='_blank'>www.GecePartneri.com</a></div><hr><br><br>" 
  bottombody="<br><br><div style='font-size:11px;font-family:verdana'>İlginize Teşekkürler.<br><br><hr><strong>Gecepartneri.Com</strong> Müşteri Hizmetleri<br><a href='http://www.GecePartneri.com' target='_blank'>www.GecePartneri.com</a></div>" 
   
  Dim Body 
  Dim MyCDONTSMail 
  Set MyCDONTSMail = CreateObject("CDONTS.NewMail") 
      MyCDONTSMail.From= "gecepartneri@gecepartneri.com" 
      MyCDONTSMail.To= email 
      MyCDONTSMail.Subject="GecePartneri.com Üyelik başvurunuz ve onay kodunuz" 
      MyCDONTSMail.BodyFormat=0 
      MyCDONTSMail.MailFormat=0 
  	MyCDONTSMail.Body= topbody & body & bottombody 
      MyCDONTSMail.Send 
  '==============================================YENİ EMAİL ONAY KODU==================================================== 
  '==============================================İDEAL EMAİL ==================================================== 
   
  '==============================================İDEAL EMAİL ==================================================== 
   
  response.Redirect("adim3.asp?id="& id) 
  bag.close 
  %>

//////////////////////Persits.MailSender/////////////////////  
   
  Set Mail = Server.CreateObject("Persits.MailSender")  
  Mail.Host = "mail.yourdomain.com"  
  Mail.Username = "emailaddress@yourdomain.com"  
  Mail.Password = "your password"  
  Mail.From = "webmaster@yourdomain.com"  
  Mail.FromName = "Your Name"  
  Mail.AddAddress "recipient@somedomain.com"  
  Mail.AddCC "you@yourdomain.com"  
  Mail.Subject = "Subject goes here"  
  Mail.Body = "Message body goes here"  
  On Error Resume Next  
  Mail.SendToQueue  
  Set Mail = Nothing