| |
Contact us |
|
<%
If request("submit") <> "" THEN
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "contact us form " & Request("name")
objMessage.From = Request("from")
objMessage.To = "info@allpopularsites.com"
objMessage.TextBody = "name : " & Request("name") & vbCrLf & "companyname : " & Request("company") & vbCrLf & vbCrLf & Request("message")
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.allpopularsites.com"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
Response.Write("Message Sent")
end if
%>
|
|
 |
