Ciao a tutti ho un problemino con questo form .. e per un form in flash ma non riesco a farlo funzionare.. nel senso.. il servizio di redimail me lo da abc.zone e sarebbe questo: "http://www.abczone.it/public/redirmail.asp?mail=infoalibi74@hotmail.it, ma non capisco dove devo inserirlo se qualcuno che sicuramente be capisce piu' di me mi vuole dare una mano glie ne sarei molto grato.. questo e' il form : <%
contactfield1=Request("field1")
contactfield2=Request("field2")
contactfield3=Request("field3")
contactfield4=Request("field4")
mbody = "field1 : "&contactfield1&" | field2 : "&contactfield2&" | field3 : "&contactfield3&" | field4 : "&contactfield4
'email object for cdonts
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''
'Set pmail = Server.CreateObject("CDONTS.Newmail")
'change the email to your email address
'pmail.From = "you@yourdomain.com"
'pmail.To = "info@yourdomain.com"
'pmail.Subject = " Website Contact enquiry "
'pmail.Body = mbody
'pmail.MailFormat = 0 'mime type
'pmail.BodyFormat = 0 'default value 1 for plain text type
'pmail.Send
'Set pmail=Nothing
'new mail
'DIM Mailer
'email object for CDO Windows 2003
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Website Contact Enquiry"
'change the email to your email address
objMessage.Sender = "you@yourdomain.com"
objMessage.To = "info@yourdomain.com"
objMessage.TextBody = mbody
objMessage.Send
set objMessage=Nothing
response.write("response=ok")
%> Dove dice change the email l'ho gia' fatto ma non succede nulla !! Mi sa che ho sbagliato sezione scusatemi.. rock non ti arrabbiare non l'ho fatto apposta !!
Rispondi quotando
