%@ LANGUAGE="VBSCRIPT" %>
<% if request.form("mailto")<>"" Then Set myMail = CreateObject("CDO.Message") myMail.From = request.form("mailfrom") myMail.To = request.form ("mailto") myMail.Subject = request.form("subject") myMail.TextBody = request.form("question") & VbCrLf & request.form("mailfrom") & VbCrLf & request.form("dealer") 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") _ ="pop3.xtreamer.nu" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %>
|
Vi har tagit emot din fråga och återkommer så snart vi kan.
Xtreamer Sverige, Digilive AB |