<%@ Language="VBScript"%> <% Dim cname , cemail , ctype , csubject , cmessage cname = TRIM ( Request.form("name") ) cemail = TRIM ( Request.form("email") ) ctype = TRIM ( Request.form("type") ) csubject = TRIM ( Request.form("subject") ) cmessage = TRIM ( Request.form("message") ) %> Contact us
Name : <% response.write cname %>
Email : <% response.write cemail %>
Type : <% if ctype="info@mis4kids.com" then response.write ("General") Elseif ctype="sales@mis4kids.com" then response.write ("Sales") Else response.write ("Marketing") End If %>
Subject : <% response.write csubject %>
Message : <% response.write cmessage %>
<% Set myMail=CreateObject("CDO.Message") myMail.Subject= cmessage myMail.From=cemail myMail.To= ctype myMail.HTMLBody= " http://www.mis4kids.com

MIS Studio and Publishers

" & " Name : " & cname & "

" & " Email Address :: " & cemail & "

" & "Subject : " & csubject & "

" & " Message : " & cmessage & "
" myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="mail.mis4kids.com" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %>