Konu Başlığı: Godaddy.com Form Mail
View Single Post
Sponsorlu Bağlantılar
Zoque.Forum
Advertisement
Old 21.02.2007   #2 (permalink)
Dhilgul
 
Dhilgul's Avatar
 
Üyelik Tarihi: 05.05.2006
Yer: Kocaeli & İstanbul
Yaş: 21
Mesaj: 384
Re: Godaddy.com Form Mail

Kod:
<form action="formmail.ASP?send=1" method="post">		
		<p style="text-indent: 0px;">				
			<label>adınız ve soyadınız:</label>
			<input id="name" name="name" type="text" size="30" />
			<label>e-posta adresiniz:</label>
			<input id="adres" name="adres" type="text" size="30" />
			<label>mesajınız:</label>
			<textarea id="msg" name="msg" rows="5" cols="5"></textarea>
			<br />	
			<input class="button" type="submit" value="Gönder" />		
		</p>		
		</form>

formmail.ASP
Kod:
<%
If Request.querystring("Send") <> "" Then
	msg_txt = "<font face=""Tahoma"" size=""2""><b>Yeni İletişim Formu</b>"
	msg_txt = msg_txt & "<br><br><b>İsim:</b> " & Request.form("name")
	msg_txt = msg_txt & "<br><b>Email:</b> " & Request.form("adres")
	msg_txt = msg_txt & "<br><br><b>Mesajınız:</b><br>" & Request.form("msg")
	msg_txt = msg_txt & "</font>"
	
	Set mail = server.CreateObject("Persits.MailSender")
	mail.Host = "mail.holidayclubturkey.com"
	mail.From = Request.form("From")
	mail.FromName = Request.form("FromName")
	mail.AddAddress "pueem@superonline.com"
	mail.Subject = "aygunmail"
	mail.IsHTML = True
	mail.Body = msg_txt

	On Error Resume Next
	mail.Send
	If Err <> 0 Then
		msg = "<b>Mesajınız iletilemedi!</b>"
	else
		msg = "<b>Mesajınız iletildi.</b>"
	End If
End If
%>
formmail.ASP'de formun sonucunu bildiren bölüm:
Kod:
			<%If Request.querystring("Send") <> "" Then%>
			<%=msg%>&nbsp;
			<%End If%>

Mesaj Dhilgul tarafından 21.02.2007 (10:34) yeniden düzenlendi.
Dhilgul şu an çevrimdışı   Mesajdan alıntı yaparak yeni bir cevap ekleyin