Kennethje
1 oktober 2005, 12:01
Mijne website is www.kenneth.v3.be (http://www.kenneth.v3.be/) en het gaat over die contact pagina
<%
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 = kennethje_001@msn.com
'pmail.To = kennethje_001@msn.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 = kennethje_001@msn.com
objMessage.To = kennethje_001@msn.com
objMessage.TextBody = mbody
objMessage.Send
set objMessage=Nothing
response.write("response=ok")
%>
<%
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 = kennethje_001@msn.com
'pmail.To = kennethje_001@msn.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 = kennethje_001@msn.com
objMessage.To = kennethje_001@msn.com
objMessage.TextBody = mbody
objMessage.Send
set objMessage=Nothing
response.write("response=ok")
%>