2007 EIA Customer Survey

<% Else=20 ' Do our DB insert stuff! dim surveydbConn, sqlCommand dim q3b_other2, q5_comments2 =20 set surveydbConn =3D Server.CreateObject("ADODB.Connection") surveydbConn.Mode =3D 3 surveydbConn.Open("surveydb1") TimeVar=3DTime DateVar=3DDate Response.Write("

Thanks for taking the survey. Come see= us again! Close this window.

")=20 ' Response.Write(" EIA is working to make you the best site.")= =20 ' Response.Write(" Please do not hesitate to contact us for ass= istance or critique. ") ' Response.Write("

Back to the Kid's Page?

= ;

") =20 Response.Write("

If you have any further energy questions or comments, em= ail infoctr@eia.doe.gov or telephone (202)586-8800.

") = =20 Response.Write("

_{" & DateVar & " " & TimeVar & "}

")=20 ' If comments contain a "'" ! q3b_other2 =3D Request.Form("q3b_other") If InStr(1,Request.Form("q3b_other"),"'",1) > 0 Then q3b_other2 =3D Replace(Request.Form("q3b_other"),"'",["'"]) End If=20 q5_comments2 =3D Request.Form("q5_comments") If InStr(1,Request.Form("q5_comments"),"'",1) > 0 Then q5_comments2 =3D Replace(Request.Form("q5_comments"),"'",["'"]) End If=20 ' Retrieve the strings to be entered into the DB, make SQL =20 ' & insert into database sqlCommand =3D "INSERT INTO custsurv(q1_freq,q2_us,q3_org,q3b_other," sqlCommand =3D sqlCommand & "q4_rate," sqlCommand =3D sqlCommand & "q5_comments,remote_add,dte,tme) " sqlCommand =3D sqlCommand & "VALUES('" & Request.Form("q1_freq") & "','" sqlCommand =3D sqlCommand & Request.Form("q2_us") & "','" sqlCommand =3D sqlCommand & Request.Form("q3_org") & "','" sqlCommand =3D sqlCommand & q3b_other2 & "','" sqlCommand =3D sqlCommand & Request.Form("q4_rate") & "','" sqlCommand =3D sqlCommand & q5_comments2 & "','" sqlCommand =3D sqlCommand & Request.Form("rem_add2") & "','" sqlCommand =3D sqlCommand & DateVar & "','" sqlCommand =3D sqlCommand & TimeVar & "')" surveydbConn.Execute(sqlCommand) surveydbConn.Close set surveydbConn =3D Nothing End If %>

OMB#xxx
Form Expires: x/xx/xx

<% dim action ' See if we have any info to process. ' If we don't (ie. the first time through) we just show ' the form. If we do we proceed with the insert. If Request.Form("action") <> "Save survey Form Data" Then ' Show the form %>

Than= ks for taking our short survey. Your feedback is valuable.

<= img border=3D0 width=3D17 height=3D18 src=3D"2007EIACustomerSurvey_files/im= age004.jpg" align=3DabsMiddle v:shapes=3D"_x0000_i1028">close

1	Which category best describes you or your organization? G= overnment (Federal, state, local, Congress) Business/Industry --> E= nergy N= on-energy Res= earch/Consulting Media = Fina= nce (banking, investment) T= eacher/Professor S= tudent --> Age Trade Association (Federal, state, local) L= ibrary P= rivate citizen Other (please specify)
2	How often do you visit EIA's site? Daily Weekly Monthly Les= s than once a month First-time visi= tor
3	Do you live in the United States? Yes No
4	How satisfied are you with the quality of information on EIA's site? Very Dissatisfied Very Satisfied 1 2 3 4 5 6 7 &nb= sp; 8 9 10
5	What information were you looking for?
6	Did you find the information you were looking for? Yes, easily <= br> Yes, but it took so= me effort Only part of it No = I was just brow= sing
7	Which of the following technologies do you use anywhere on the Internet: (select all that apply) Blogs (a forum for exchanging information) Wikis (online resou= rce where users add and edit content) RSS (automatic ale= rts to product updates) Pod= casting (downloaded audio content) Videocasting (downloaded video content from sources such as YouTube) <= o:p>
8	Anything else you want to tell us?
= ;	&n= bsp; = ;