<%@LANGUAGE="VBSCRIPT"%> <% ' Use an ASP command to check to see if data has been submitted to this page If request.form = "" then ' no data was submitted to the form, so display the form to the user %>

Coming this spring "The Art and Science of Glass Blowing"

Spotlight:
	Atmospheric Particulates: Global and Regional Challenges Watch Video >>
	Biofuels: The Science of Creating Greener Energy Watch Video (English) >> Watch Video (Spanish) >>
	Nanotechnology--Science Fiction Meets Reality Watch Video >> en Espanol (Real Player) >>
	Disease Targets: Understanding Disease at the Level of Individual Molecules Watch Video >>
	Atmospheric Aerosols: Health, Environmental and Policy of Particulates in the US-Mexico Border Region. Watch Video >> en Espanol >>
	Energy and Climate: Challenges and Solutions Global warming and the prospects of a hydrogen economy. Read More >>

Feedback survey

FEEDBACK FORM

Please take a few minutes to help us evaluate the Molecules for the Media website. We appreciate your comments.

We welcome all of your comments and suggestions.

Please select Workshop Series (you can choose more than one topic)

1. Did you learn something from the materials on this site?

Yes No

2. Did the site pique your interest in chemistry-related issues?

Yes No

Comments:

3. Were you able to find what you needed?

Yes No

4. What other information or materials might be useful to you?

5. Will you present ideas you learned here to other audiences (e.g. your students, in an article in the media, presentation to colleagues)?

Yes No

6. What is your profession?

Other:

Email Address (optional):

<% else ' Data was submitted to this form, so send the results via email Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.ucsd.edu" Mail.From = Request.Form("Email") Mail.FromName = Request.Form("RealName") Mail.AddAddress "moleculesformedia@ucsd.edu" Mail.Subject = "Feedback Form " Mail.Body = "Message type : " & Request.Form ("Feedback Form") & vbCRLF Mail.Body = Mail.Body & "Workshop Series : " & Request.Form ("Workshop_Series") & vbCRLF Mail.Body = Mail.Body & "Q1 : " & Request.Form ("Q1") & vbCRLF Mail.Body = Mail.Body & "Comments1 : " & Request.Form ("Comments1") & vbCRLF Mail.Body = Mail.Body & "Q2 : " & Request.Form ("Q2") & vbCRLF Mail.Body = Mail.Body & "Comments2 : " & Request.Form ("Comments2") & vbCRLF Mail.Body = Mail.Body & "Q3 : " & Request.Form ("Q3") & vbCRLF Mail.Body = Mail.Body & "Comments4 : " & Request.Form ("Comments4") & vbCRLF Mail.Body = Mail.Body & "Q5 : " & Request.Form ("Q5") & vbCRLF Mail.Body = Mail.Body & "Comments5 : " & Request.Form ("Comments5") & vbCRLF Mail.Body = Mail.Body & "Q6 : " & Request.Form ("Q6") & vbCRLF Mail.Body = Mail.Body & "Comments6 : " & Request.Form ("Comments6") & vbCRLF Mail.Body = Mail.Body & "Profession: " & Request.Form ("Profession") & vbCRLF Mail.Body = Mail.Body & "subjectother: " & Request.Form ("subjectother") & vbCRLF Mail.Body = Mail.Body & "Time Sent : " & FormatDateTime(Now()) & vbCRLF Mail.Body = Mail.Body & "Senders IP: " & Request.ServerVariables("REMOTE_ADDR") & vbCRLF On Error Resume Next Mail.Send If Err = 0 Then Response.Write "Your message was sent successfully!" else Response.Write "Message was not sent, an error encountered: " & Err.Description End If On Error Goto 0 Set Mail = Nothing Response.Write "
Click here to Molecules for the Media hompage" end if %>