TKD

<% @LANGUAGE =VBScript %> <% Option Explicit Response.Expires=0 %> <% Dim strContactName, strEmail, strPhone, strComments dim sch,cdoConfig,cdoMessage,oFSO If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then strContactName= Trim(Request.Form("Contact")) strEmail = Trim(Request.Form("Email")) strPhone = Trim(Request.Form("Phone")) strComments= Trim(Request.Form("Comments")) 'wyslij email do mnie sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "k2smtpout.secureserver.net" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "classifieddaily@classifieddaily.ca" .To = "help.desk@classifieddaily.ca" .Subject = "Classified Daily Canada Contact Form" .TextBody = "Contact Name : " & strContactName & vbCrLf & vbCrLf & "E-mail Address : " & strEmail & vbCrLf & "Phone Number : " & strPhone & vbCrLf & "Message : " & strComments '.HTMLBody = strConEmail .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing On Error Resume Next iF Err <> 0 Then Response.Write "Error encountered: " & Err.Description End iF %> TKD

FRANÇAIS