Konu Başlığı: Flash Form - CDOSYS

CreaNext tarafından gönderilen mesaj:

konuyu yeni gördüm cdo ile sana anlaşılır bir şekilde örnek vereyim.
flash formu göremedim un expected file format hatası verdi sanırım flash 8 kullanıyosun..
ama bu kodla istediğin şeyi yapabilirsin.

flashta tanımladığın alanlar.
mesela bu forma göre "mail", "tlf" ,"isim","ileti"
olsun flashtaki alanların
bu sayfada post edeceğin sayfa olsun;

Kod:

 <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<% isim=Trim(Request("isim"))%><% email=Trim(Request("mail"))%><% telefon=Trim(Request("tlf"))%><% ileti=Trim(Request("body"))%> 

<%MailTO="info@deneme.com"%> <% 'Gönderilecek mail %>
<%MailFROM=email %>
<%MailSUBJECT="sitenizden forma yazıldı."%>
<%MailDESCRIPTION="E- posta: " & email & "<br>İsim: " & isim & "<br>telefon : " & tlf & "<br>mesaj: " & ileti %>

<%rem ********************************************************************************************************%>		

<%
if MailFROM<>"" and MailSUBJECT<>"" and MailDESCRIPTION<>"" then%>


	<%
	


		Dim iConf
		Dim Flds
  	   Set iConf = CreateObject("CDO.Configuration")
	   iConf.Load 2
		Set Flds = iConf.Fields
		 With Flds
			.Item(cdoSendUsingMethod)  = 2
			.Item(cdoSMTPServer) = "mail.deneme.com"          'mail.Gonderilecek domain
			.Item(cdoSMTPAccountName)	  = "info@deneme.com"          'Gonderilecek mail
			.Item(cdoSendPassword)	  = "123456"                        'şifre			.Item(cdoSendUserName)	  = "info@deneme.com"              'Gönderilecek mail
			.Item(cdoSMTPServerPort)	  = "25"
			.Update
		 End With
		
		DIM NewMailObj

%>


					
<%			

			set NewMailObj=CreateObject("CDO.Message")

			MailBODY = MailDESCRIPTION

			NewMailObj.Configuration=iConf
							NewMailObj.From=MailFROM
							NewMailObj.To=MailTO
							NewMailObj.Subject=MailSUBJECT
							NewMailObj.HTMLBody=MailBODY
							NewMailObj.Send

			set NewMailObj=Nothing	
%>


<%	
			set Flds=Nothing
			set iConf=Nothing
%>



<%response.write "Sayin "& isim &"\n\nmesajınız başarıyla gönderildi.'" %>


<% else %>
<%response.write "Mesajınız Elimize Ulaşmamıştır.\n\nLütfen mail adresinizi kontrol ediniz...." %>
<%
end if
%>

Kolay gelsin.

CreaNext merhaba, arkdaşım ben kodları kullandım. Mesaj geliyor ,gönderen kişinin mail adresi ve konu görünüyor. Fakat diğer alanlar boş görünüyor, sizce bunun sebebi nedir?

Bu kodlar içerisine mail gönderen kişinin IP,Tarih,Zaman bilgilerini ekleyebilirmiyiz? Bu konuda da aydınlatırsanız sevinirim. Lütfen bu konuda bana yardımcı olunuz, 4 gündür bununla uğraşıyorum. Teşekkürler, iyi çalışmalar...

Bu kod içinde verilen değerlerin flash içinde karşılığı var mı ona bakabilirsin. Deneme imkanım yok.

mesela kodda
<% isim=Trim(Request("isim"))%>
<% email=Trim(Request("mail"))%>

gibi alanlar var ve mesela bu iki örnekte gözüken isim ve mail alanlarının flash içinde karşılığı var mı?

Yani şu an kodda isim alanını çekiyorsun ama flash içinde diyelim ki bunu adi olarak tanımlamışsan olmaz zaten.