Online Randevu

<% if request("islem")="" then %>

Ad Soyad	:
E-Posta Adresi	:
Randevu Tarihi Gün / Ay / Yıl	:	--- <% for i=1 to 31 %> <%=i%> <% next %> --- <% for i=month(date) to 12 %> <%=monthname(i)%> <% next %> --- <% for i=year(date) to year(date) %> <%=i%> <% next %>
Cep Telefonu	:	0
Ev - İş Telefonu	:	0
Mesajınız (isteğe bağlı)	:

<% else %> <% MyBody = "" MyBody = MyBody & "Ad Soyad : " & request("adsoyad") &"
" MyBody = MyBody & "Email : " & request("email") & "
" MyBody = MyBody & "Cep : " & request("cep1") & request("cep2") & "
" MyBody = MyBody & "Tel : " & request("tel1") & request("tel2") & "
" MyBody = MyBody & "Randevu Tarihi : " & request("gun") & "."&request("ay")&"."&request("yil") & "
" MyBody = MyBody & "Mesaj : " & request("mesaj") & "
" MyBody = MyBody & "" Set ayar = Baglanti.Execute("SELECT * FROM kullanici WHERE id=1") strHost=ayar("mailhost") eposta=ayar("mail") sifre=ayar("sif") alici=ayar("email") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = eposta Mail.FromName = eposta Mail.AddAddress alici Mail.AddReplyTo request("mail") Mail.Subject = "Randevu Formu " Mail.Body = MyBody Mail.Username = eposta Mail.Password = sifre Mail.IsHTML = True Mail.Send If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If %>
<% end if %>