<% If Trim(Request.Form("hidMethod")) <> "" Then Dim ToAddress,FromAddress,Subject,Body FromAddress = Trim(Request("txtEmail")) ToAddress = "contact@mymichianatv.com" 'ToAddress = "jessica@alphazeta.com" Subject = "Reply From WMYS, My Michiana TV" Body = "First Name: " & Trim(Request("txtfName")) & vbCrLf &_ "Last Name: " & Trim(Request("txtlName")) & vbCrLf &_ "Email: " & Trim(Request("txtEmail")) & vbCrLf &_ "Address: " & Trim(Request("txtAddress")) & vbCrLf & _ "Address2: " & Trim(Request("txtAddress2")) & vbCrLf & _ "City: " & Trim(Request("txtCity")) & vbCrLf &_ "State: " & Trim(Request("selState")) & vbCrLf &_ "Zip: " & Trim(Request("txtZip")) & vbCrLf & _ "Phone: " & Trim(Request("txtPhone")) & vbCrLf &_ "Questions / Comments: " & Trim(Request("taQorComments")) If ToAddress <> "" Then SendMail FromAddress,ToAddress,Subject,Body End If Response.Redirect "thank_you.html" Response.End Sub SendMail(FromAddress,ToAddress,Subject,Body) Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = FromAddress objMail.To = ToAddress objMail.Subject = Subject objMail.Body = Body objMail.Send Set objMail = Nothing End Sub End If %> WMYS : South Bend - Contact WMYS
WMYS Channel 69

WMYS Channel 69
3665 Park Place West
Mishawaka, IN 46545
Phone: 574-243-4316

WMYS South Bend Coontact

*First Name:
*Last Name:
*Email Address:
Address:
Address Line 2:
City:
State:
Zip:
*Phone:
Questions/Comments:
 

 

 

WMYS South Bend Contact Info

Mail: 3665 Park Place West, Mishawaka, IN 46545
Phone: 574-243-4316
Fax: 574-243-4326