<%@ Language=VBScript %> <% 'tscalise@pittsburgharts.org dim name, email, whichChecked, Address1, city, state, zip name = Trim(Request("name")) email = Trim(Request("email")) whichChecked = Trim(Request("whichChecked")) Address1 = Trim(Request("Address1")) city = Trim(Request("city")) state = Trim(Request("state")) zip = Trim(Request("zip")) if Request.Form.Count > 0 then if not ((name = "") or (email = "") or (whichChecked = "") or (Address1 = "") or (city = "") or (state = "") or (zip = "")) then strError = "" dim message message = "Request for the following updates:" & vbcrlf message = message & Request.Form("whichChecked") & vbcrlf & vbcrlf message = message & "Requested By:" & vbcrlf message = message & "Name: " & Request.Form("name") & vbcrlf message = message & "Email: " & Request.Form("email") & vbcrlf message = message & "Phone: " & Request.Form("phone") & vbcrlf message = message & "Fax: " & Request.Form("fax") & vbcrlf message = message & "Address: " & Request.Form("Address1") & ", " & Request.Form("Address2") & ", " & Request.Form("city") & ", " & Request.Form("state") & ", " & Request.Form("zip") & vbcrlf message = message & "Refferred by: " & Request.Form("reffered") & vbcrlf dim objMail set objMail = Server.CreateObject ("CDONTS.NewMail") objMail.From = "tscalise@pittsburgharts.org" 'objMail.To = "tscalise@pittsburgharts.org" objMail.To = "tscalise@pittsburgharts.org" objMail.Subject = "Request for updates from PCA Website" objMail.Body = message objMail.Send 'Un REM when ready to send email!!!!!!!!!!!!! Set objMail = Nothing Response.Redirect "centerthanksupdates.asp" else if not (trim(Request.Form("name") & "t") = "t" or trim(Request.Form("email") & "t") = "t") then strError="" else strError="" end if end if end if dim rs dim objConn set objConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString = "DSN=pca;uid=sa;pwd=;" objConn.Open %> <%=strError%>
 
 
 
 

The Center periodically sends email updates about our various programs. Check the box next to the program, or programs, for which you would like to receive updates.
 
 
 
 
 
 
 
name
address 1
address 2
city/state/zip
<% strSQL="SELECT abr FROM States ORDER BY abr" set rs = objconn.Execute(strSQL) %>
phone
fax
e-mail
how did you hear about
the center's web site?

       

 
<% rs.Close objConn.Close set rs = nothing set objConn = nothing %>