Bug Report
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Selteco Support"
Mailer.RemoteHost = "mail.selteco.com"
Mailer.FromAddress= "support@selteco.com"
Mailer.AddRecipient "Selteco Support", "support@selteco.com"
Mailer.Subject = "Bug Report"
strMsg = "User: " & Request.Form ("adres") & vbCrLf
strMsg = strMsg & "Product: " & Request.Form ("product") & vbCrLf
strMsg = strMsg & "-------------------------------" & vbCrLf
strMsg = strMsg & Request.Form ("problem") & vbCrLf
strMsg = strMsg & "-------------------------------" & vbCrLf
Mailer.BodyText = strMsg
if Mailer.SendMail then
Response.Write "Thank you for contacting us. Your email: " & Request.Form ("adres") & "
Product: " & Request.Form ("product") & " -------------------------------
" & Request.Form ("problem") & "
-------------------------------"
else
Response.Write "Report failure. Error was " & Mailer.Response
end if
%>
|
