<% IF (REQUEST.FORM("SENDIT")<>"") then iname = request.form("name") iaddress = request.form("address") icity = request.form("city") istate = request.form("state") izip = request.form("zip") iemail = request.form("email") iphone = request.form("phone") ihearabout1 = request.form("hearabout1") ihearabout2 = request.form("hearabout2") ihearabout3 = request.form("hearabout3") iinterested = request.form("interested") icomments = request.form("comments") ' response.write iemail ' response.end imessage = "" imessage = imessage&"User IP: "&Request.ServerVariables("REMOTE_ADDR")&vbCRLf imessage = imessage&"Name: "&iname&vbCRLf imessage = imessage&"Address: "&iaddress&vbCRLf imessage = imessage&"City: "&icity&vbCRLf imessage = imessage&"State/Province: "&istate&vbCRLf imessage = imessage&"Zip: "&izip&vbCRLf imessage = imessage&"Email: "&iemail&vbCRLf imessage = imessage&"Phone: "&iphone&vbCRLf imessage = imessage&"Hear about gov.ph from: "&ihearabout1&";"&ihearabout2&";"&ihearabout3&";"&vbCRLf imessage = imessage&"Interested in email alerts? "&iinterested&","&vbCRLf&vbCRLf imessage = imessage&"Comments: "&vbCRLf&icomments&vbCRLf&vbCRLf '2004-05-04 // code update using CDOSYS Dim iMsg Dim iConf Const cdoSendUsingPort = 2 Const strSMTPHost = "mail.asti.dost.gov.ph" Const strSMTPPort = 25 'Create the message object. Set iMsg = CreateObject("CDO.Message") 'Create the configuration object. Set iConf = iMsg.Configuration 'Set the fields of the configuration object to send by using SMTP through port 25. With iConf.Fields .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPHost .item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = strSMTPPort .Update End With 'Set the To, From, Subject, and Body properties of the message. With iMsg .To = "contact_me_ITO@yahoo.com" .Cc = "corres@op.gov.ph" .BCc = "rico@softrigger.com, gerald@softrigger.com, erwin@softrigger.com" .From = iemail .Subject = "[SYSTEM_OP.GOV.PH/PMS] submitted from Contact Us of OP.GOV.PH/PMS website" .TextBody = imessage .Send End With set iMsg = Nothing Set iConf = Nothing response.redirect "thankyou.asp" end if %>

Office of the President  |  The Government Portal

Send Your Comments, Queries & Suggestions Name:* Address:* City:* State/Province:* Zip:* Email:* Phone:* How did you hear about the site? :*   Referral Browsing Advertisement Are you interested in receiving e-mail alerts? :*   Yes No Comments:*