<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% strHost = "mail.modelinknetworks.com" '----------------------------------------------SMTP SERVER If Request.Form("BtnSubmit") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = Request.Form("txtemail") ' ------------------------ INPUT FORM - USER - EMAIL ADDRESS Mail.FromName = Request.Form("txtName") '---------------------- INPUT FORM - USER - NAME Mail.AddAddress "phil@mainstay.tv" '----------------------------INTERNAL - MAIL TO BE SENT TO Mail.Subject = Request.Form("txtSubject") '-------------------INPUT FORM - USER - SUBJECT Mail.Body = Request.Form("txtMessage") '--------------------INPUT FORM - USER - MESSAGE strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Username = "info@modelinknetworks.com" 'INTERNAL - AUTHENTICATION SMTP - USERNAME Mail.Password = "models" 'INTERNAL - AUTHENTICATION SMTP - PASSWORD Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description response.write(strErr) else bSuccess = True End If 'response.redirect("contact.asp") else 'response.redirect("index.htm") END IF %>