%@ 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("ant") & request.form("subject") myMail.TextBody = request.form("adonhdd2") & request.form("ant2") & VbCrLf & request.form("wlan") & request.form("ant3") & VbCrLf & request.form("hdmi") & request.form("ant-hdmi") & VbCrLf &request.form("headset") & request.form("ant4") & VbCrLf & VbCrLf & request.form("namn") & VbCrLf & request.form("adress") & VbCrLf & request.form("postnr") & VbCrLf & request.form("mobil") & VbCrLf & request.form("mailfrom") 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 %>
|
Tack för din
beställning!
Xtreamer Sverige Digilive AB |