iletişim formu yardım

[cika39]

merhaba arkadaşlar. contact form yapmak istiyorum. fakat benim server'ım windows tabanlı olduğu için php olmuyormuş galiba. asp kodlarıyla bunu nasıl yapabilirim. ve flash'ta gönder butonuna (as2) hangi komutları yazmam gerek. bana yol gösterebilir misiniz?

[ismailix]

asp iletişim formu olarak yardımcı olabilirim.
ama as2 giydirme konusunda pek bir bilgim yok.
saygılar.

[arkhe31]

dostum bir çok iletişim formu var asp.
google da arat birini kullan

[arkhe31]

Bunu denesene bir dostum

Bu sayfanın adı "iletisim.asp" yap dostum
<form method="post" action="yolla.asp">
Adınız :
<br>
<input type="text" size="20" name="isim">
<br>
Soyisim :
<br>
<input type="text" size="20" name="soyisim">
<br>
Firmanızın Adı :
<br>
<input type="text" size="20" name="firmaismi">
<br>
Telefon :
<br>
<input type="text" size="20" name="telefon">
<br>
E-Posta :
<br>
<input type="text" size="20" name="eposta">
<br>
Adres :
<br>
<input type="text" size="20" name="adres">
<br>
Öneri / İstek / Şikayet :
<br>
<textarea name="istek"></textarea>
<br>
<input name="submit" type="submit" value=" Gönder ">
</form>[/CODE]

Bu diğer sayfaının adını da "yolla.asp" yap

<%
isim = request.form("isim")
soyisim = request.form("soyisim")
firmaismi = request.form("firmaismi")
telefon = request.form("telefon")
eposta = request.form("eposta")
adres = request.form("adres")
istek = request.form("istek")
if isim="" or soyisim="" or firmaismi="" or telefon="" or eposta="" or adres="" or istek="" then
Response.Write "<script language='JavaScript'>alert('Tüm alanları doldurunuz...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>" 
Response.End
end if

kontrol1= InStr(eposta,"@") 
kontrol2= InStr(eposta,".") 
if kontrol1="0" or kontrol2="0"  then

Response.Write "<script language='JavaScript'>alert('Geçerli email adresi yazınız...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>" 
Response.End
end if


' xxxxxxxxxxxxxxx  GİDECEK MAİL ADRESİMİZ BURADA
gidecekmail = "ontedi@hotmail.com"



Set Mail=Server.CreateObject("CDONTS.NewMail")
Mail.To=" "&gidecekmail&" " 
Mail.From=" "&eposta&" "
Mail.Subject= "Size Gönderilen İletişim Bilgileri"
mesajimiz = "Ad Soyad : " & isim & " " & soyisim & " "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz &  " Firma İsmi :  "&firmaismi&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz &  "  Adres :  "&adres&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz &  " | Gönderen E-Mail :  "&eposta&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz &  "  Telefon :  "&telefon&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz &  "  İstek / Öneri / Görüş :  "&istek&" "
Mail.Body=mesajimiz
Mail.Send
Response.Write "<script language='JavaScript'>alert('Mesajınız İletilmiştir..');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>" 
Set Mail=Nothing 
%>