<% ' FP_ASP ASP Automatically generated by a FrontPage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 2057 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("index_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(28) Dim arFormDBFields0(28) Dim arFormValues0(28) arFormFields0(0) = "T2" arFormDBFields0(0) = "T2" arFormValues0(0) = Request("T2") arFormFields0(1) = "R14" arFormDBFields0(1) = "R14" arFormValues0(1) = Request("R14") arFormFields0(2) = "R1" arFormDBFields0(2) = "R1" arFormValues0(2) = Request("R1") arFormFields0(3) = "T3" arFormDBFields0(3) = "T3" arFormValues0(3) = Request("T3") arFormFields0(4) = "R15" arFormDBFields0(4) = "R15" arFormValues0(4) = Request("R15") arFormFields0(5) = "R2" arFormDBFields0(5) = "R2" arFormValues0(5) = Request("R2") arFormFields0(6) = "T4" arFormDBFields0(6) = "T4" arFormValues0(6) = Request("T4") arFormFields0(7) = "R16" arFormDBFields0(7) = "R16" arFormValues0(7) = Request("R16") arFormFields0(8) = "R3" arFormDBFields0(8) = "R3" arFormValues0(8) = Request("R3") arFormFields0(9) = "R17" arFormDBFields0(9) = "R17" arFormValues0(9) = Request("R17") arFormFields0(10) = "R4" arFormDBFields0(10) = "R4" arFormValues0(10) = Request("R4") arFormFields0(11) = "R18" arFormDBFields0(11) = "R18" arFormValues0(11) = Request("R18") arFormFields0(12) = "R5" arFormDBFields0(12) = "R5" arFormValues0(12) = Request("R5") arFormFields0(13) = "R19" arFormDBFields0(13) = "R19" arFormValues0(13) = Request("R19") arFormFields0(14) = "R6" arFormDBFields0(14) = "R6" arFormValues0(14) = Request("R6") arFormFields0(15) = "R7" arFormDBFields0(15) = "R7" arFormValues0(15) = Request("R7") arFormFields0(16) = "R8" arFormDBFields0(16) = "R8" arFormValues0(16) = Request("R8") arFormFields0(17) = "R9" arFormDBFields0(17) = "R9" arFormValues0(17) = Request("R9") arFormFields0(18) = "R20" arFormDBFields0(18) = "R20" arFormValues0(18) = Request("R20") arFormFields0(19) = "R10" arFormDBFields0(19) = "R10" arFormValues0(19) = Request("R10") arFormFields0(20) = "R21" arFormDBFields0(20) = "R21" arFormValues0(20) = Request("R21") arFormFields0(21) = "R11" arFormDBFields0(21) = "R11" arFormValues0(21) = Request("R11") arFormFields0(22) = "R22" arFormDBFields0(22) = "R22" arFormValues0(22) = Request("R22") arFormFields0(23) = "R12" arFormDBFields0(23) = "R12" arFormValues0(23) = Request("R12") arFormFields0(24) = "R23" arFormDBFields0(24) = "R23" arFormValues0(24) = Request("R23") arFormFields0(25) = "T1" arFormDBFields0(25) = "T1" arFormValues0(25) = Request("T1") arFormFields0(26) = "R13" arFormDBFields0(26) = "R13" arFormValues0(26) = Request("R13") arFormFields0(27) = "R24" arFormDBFields0(27) = "R24" arFormValues0(27) = Request("R24") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "ThankYou.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Questionnaire about design products.
Site hosted by Angelfire.com: Build your free website today!

 

Questionnaire

 

Objective: to evaluate four design concepts

                   a. Robotic Mower.

                   b. Portable Power Supply

                   c. Universal Power Supply.

                   d. Cordless Garden Sprinkler

 

Audience : home owners.

 

Please tick (√) the appropriate answer that corresponds to you.

<% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Dim fp_Debug fp_Debug = False Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select If fp_Debug Then strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" Else strError = "Cannot save value to database field" End If FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_EncodeOutput(str) FP_EncodeOutput = str FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^") FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput) FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&") End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & FP_EncodeOutput(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues) On Error Resume Next Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For j = 0 To UBound(rgDBFields) - 1 Response.Write "" & rgDBFields(j) & "" & ": " & FP_EncodeOutput(rgDBValues(j)) & "
" & vbCrLf Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) On Error Resume Next Dim fp_Debug fp_Debug = False If Err.Number <> 0 Then fp_conn.Close Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & Server.HTMLEncode(strMsg) & "

" if fp_Debug Then Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "

" Response.Write "Error Number: " & Server.HTMLEncode(Err.Number) & "

" Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "

" End If Response.End End If End if End Function %>  

1- Do you prefer using wireless or robotic garden tools?  

Yes        No

 

2- How often do you use garden tools/power tools in the garden every;  

Week     Month     months     6 months

 

3- How much would you pay for a garden power tool?  

₤ 100      ₤ 200

₤ 500      ₤ 1000

₤ 1500    others specify

 

4- What power would you prefer?  

Electric Fuel

Battery Solar

others specify

 

 

5- Which colour would you like your garden tool to be?

 

a.      b. 

c.      d. 

e.

 

 

 

 

Product 1 evaluation:

Robotic Mower

 6- Do you have a Mower?      

 

Yes               No

 

 

7- Is it self operated (cordless, or a robotic)?

 

Yes              No

 

 

8- What power does it use? 

    Electrical/mains     Fuel     

     Solar                       Electrical/battery 

 

9- Do you Think itís a good Idea to have a robotic mower?

 

Yes               No

 

10- Which power do you prefer for a robotic mower?

 

Electrical/mains   Fuel     

Solar                      Electrical/battery

 

11-  Give one reason that makes robotic mower better than ordinary one?

 

This is a proposed robotic mower that will just do the job by it self it is battery powered and can be charged over night to do a 3 hours grass cutting job, you can just switch on the robotic mower and go shopping and when you come back, all the job is done as simple as that, our smart robot as it scan the garden and finish the job it will just go into stand by position.

12-Looking at the following product what do you think? What do you like about it?

    Aesthetics              Usefulness             

    Ease of use            Size   

     Productivity.        Practicality

 

13- What donít you like about the design?

    Aesthetics           Usefulness           

     ease of use           Size

     Productivity        Practicality

 

14- How much would you pay for this garden power tool?

₤ 100       ₤ 200        ₤ 500     ₤ 1000  

    ₤ 1500   others

 

 

Product 2 evaluation: 

Portable Power Supply

15. Do you find trailing cables a problem?

Yes

No

 

16. Would a portable power supply for you electric tools be of interest to you?

Yes

No

 

 

 

17. Instead of replacing you garden tools with cordless version would purchasing a portable

power supply be a better option if so how much you pay for such a device?

<£10       £11-30

£31-60    £60+

 

 

Product 3 evaluation: 

Universal Power Supply

 

18- Do you already own cordless garden power tools?

YES            NO

19- When you have spent all the charge in the battery on the tool that you are using do you?

Change for another battery that has been

            on charge previously

Charge the battery you are using for a

              while then continue work with the battery

              Completely recharge the battery and

           return to your work later on

 

Proposed is a universal power pack that fits almost any make and model of cordless power tool on the market. In this product will be one charging unit that can hold up to three or four power packs, and two power packs will be provided with the option to buy other power packs.

 

 

20- Do you feel you would benefit from a universal power pack?

YES            NO

21- What is the maximum you would be prepared to pay for this product?

        £10-£19                     £20-£30           

        £31-£40                     £41-£50                 

        £50+

 

 

Product 4

 Cordless Lawn Sprinkler

This is not only can be a pleasant water feature for your pond, but can also be a cordless lawn sprinkler. All you need to do it programme in the shape of your garden using our easy to use software. Then using its unique 360 degree rotational head it will water you lawn using the water from your pond when ever you wish.

22- Do you already have a sprinkler system?

YES            NO

 

23- Looking at the following product what do you like about it?

    Aesthetics            Usefulness             Ease of use

    Size                       Productivity        Practicality

24- What donít you like about the design?

     Aesthetics              Usefulness             Ease of use

     Size                        Productivity.           Practicality

25- How much would you pay for this product?

       £10-£25                    £26-£50           

       £51-£99                     £100-£125         

       £126+ 

 

 

26-Now which one of the four design concepts do you like most

                   Robotic Mower.

                   Portable Power Supply

                   Universal Power Supply.

                   Cordless Garden Sprinkler

Please press on submit button     

End of questionnaire thanks for your patience.