<% 'declare local field variables of the first form Dim strSearching, strMultiple, strPrediction, strProgramming, strProtein, strMicroarray, strChemi, strDBManagement, strFundamentals '1 to 9 Dim strOpenQuestion10 '10 Dim strOpenQuestion11 '11 'declare variables for the second form Dim bolGRAIL ,bolGENES, bolMZEF, bolGENSCAN, bolBLAST, bolEMBOSS, bolCLUSTALW, bolGCG, bolCELERA, strOther12 '12 Dim strOpenQuestion13 '13 Dim strOpenQuestion14 '14 Dim strOpenQuestion15 '15 Dim strOpenQuestion16 '16 Dim bolNCBI, bolEnsembl, bolUCSC, bolProprietary, strOther17 '17 Dim strBudget '18 Dim bolDuration2days ,bolDuration4days, bolDuration2weeks, bolDuration4weeks, bolDuration6months '19 duration Dim strPrice2days, strPrice4days, strPrice2weeks, strPrice4weeks, strPrice6months '19 price Dim bolContactUser Dim bolErrorOccured Dim strFeedback Dim strName, strOrgName strFeedback = "

Thank you for taking the time to complete our survey. " Function SendEmail() 'email variables Dim objMailer Dim strSubject Dim strBody Dim strRecipientEmail 'set the email address of the person that is to receive the contact us emails 'strRecipientEmail = "shaun@greenbutton.ca" 'test strRecipientEmail = "taras.hollyer@vitesse.ca" 'live 'set the subject attribute of the Mailer object strSubject = "Bioinformatics Survey" strBody = "Survey Results" & vbCRLF & vbCRLF strBody = strBody & "SECTION ONE" & vbCRLF & vbCRLF strBody = strBody & "Respondant Name: " & strName & vbCRLF & vbCRLF strBody = strBody & "Respondant Organization: " & strOrgName & vbCRLF & vbCRLF strBody = strBody & "1. Database similarity searching: " & strSearching & vbCRLF & vbCRLF strBody = strBody & "2. Multiple sequence alignments & phylogenetics: " & strMultiple & vbCRLF & vbCRLF strBody = strBody & "3. Sequence feature prediction: " & strPrediction & vbCRLF & vbCRLF strBody = strBody & "4. Bioinformatics programming: " & strProgramming & vbCRLF & vbCRLF strBody = strBody & "5. Protein structure analysis & structure/function prediction: " & strProtein & vbCRLF & vbCRLF strBody = strBody & "6. Microarray analysis: " & strMicroarray & vbCRLF & vbCRLF strBody = strBody & "7. Chemi-informatics software: " & strChemi & vbCRLF & vbCRLF strBody = strBody & "8. Database management: " & strDBManagement & vbCRLF & vbCRLF strBody = strBody & "9. Biological fundamentals: " & strFundamentals & vbCRLF & vbCRLF strBody = strBody & "10. What is the most important computational restriction in your current work?: " & vbCRLF & strOpenQuestion10 & vbCRLF & vbCRLF strBody = strBody & "11. What process/feature/tool/knowledge would allow you to overcome that restriction?: " & vbCRLF & strOpenQuestion11 & vbCRLF & vbCRLF If bolDisplayFeedbackPageForSecondForm Then strBody = strBody & "____________________________" & vbCRLF strBody = strBody & "SECTION TWO " & vbCRLF & vbCRLF strBody = strBody & "12. Which of the following specific application packages / sequence searches do you use: " & vbCRLF & vbCRLF strBody = strBody & "GRAIL: " & bolGRAIL & vbCRLF strBody = strBody & "GCG: " & bolGCG & vbCRLF strBody = strBody & "EMBOSS: " & bolEMBOSS & vbCRLF strBody = strBody & "GENSCAN / GENOMESCAN: " & bolCELERA & vbCRLF strBody = strBody & "BLAST: " & bolBLAST & vbCRLF strBody = strBody & "MZEF: " & bolMZEF & vbCRLF strBody = strBody & "CLUSTALW: " & bolCLUSTALW & vbCRLF strBody = strBody & "CELERA DISCOVERY: " & bolCELERA & vbCRLF strBody = strBody & "GENES: " & bolGENES & vbCRLF strBody = strBody & "Other: " & strOther12 & vbCRLF & vbCRLF & vbCRLF strBody = strBody & "13. Which of the above would you like to be able to use more effectively in your research? :" & vbCRLF & strOpenQuestion13 & vbCRLF & vbCRLF strBody = strBody & "14. What sorts of bioinformatics research do you currently perform?:" & vbCRLF & strOpenQuestion14 & vbCRLF & vbCRLF strBody = strBody & "15. What are the most problematic areas in your current research with respect to computational limitations and bioinformatics tools?:" & vbCRLF & strOpenQuestion15 & vbCRLF & vbCRLF strBody = strBody & "16. What computational platforms do you currently use:" & vbCRLF & strOpenQuestion16 & vbCRLF & vbCRLF strBody = strBody & "17. Which of the following databases do you frequently access:" & vbCRLF & vbCRLF strBody = strBody & "NCBI: " & bolNCBI & vbCRLF strBody = strBody & "Ensembl: " & bolEnsembl & vbCRLF strBody = strBody & "Human Genome Browser (UCSC): " & bolUCSC & vbCRLF strBody = strBody & "Proprietary: " & bolProprietary & vbCRLF strBody = strBody & "Other: " & strOther17 & vbCRLF & vbCRLF & vbCRLF strBody = strBody & "18. Does your Company currently have a budget for sending employees to training courses and workshops?: " & strBudget & vbCRLF & vbCRLF strBody = strBody & "19. Which of the following would be the ideal bioinformatics course structure to meet your companies needs and what is the maximum your Company would be prepared to pay?: " & vbCRLF & vbCRLF strBody = strBody & "Duration & Acceptable Price" & vbCRLF strBody = strBody & "2 days: " & bolDuration2days & " " & strPrice2days & vbCRLF strBody = strBody & "4-5 days: " & bolDuration4days & " " & strPrice4days & vbCRLF strBody = strBody & "2 weeks: " & bolDuration2weeks & " " & strPrice2weeks & vbCRLF strBody = strBody & "4 weeks: " & bolDuration4weeks & " " & strPrice4weeks & vbCRLF strBody = strBody & "6 months – 1 year (part-time): " & bolDuration6months & " " & strPrice6months & vbCRLF & vbCRLF & vbCRLF Else strBody = strBody & "User did not fill out the second form" & vbCRLF & vbCRLF End If If bolContactUser Then strBody = strBody & "User would like to receive more information regarding the CBRi initiative." End If 'begin: using the CDONTS mail object to accomodate Magma's server component limitations Set objMail = server.CreateObject("CDONTS.NewMail") objMail.BodyFormat = 1 'plain text objMail.MailFormat = 0 objMail.From = "info@vitesse.ca" objMail.To = strRecipientEmail 'set the subject attribute of the Mailer object objMail.subject = strSubject 'set the body attribute of the Mailer object objMail.Body = strBody objMail.Send Set objMail = nothing 'end: using the CDONTS mail object to accomodate Magma's server component limitations] SendEmail = CBool(Err.Number <> 0) End Function 'find out which page to display and what to do(ie: form1, form2, feedback1, or feedback2) Dim bolSubmitOnlyFirstForm 'find out if the user only wants to submit one form bolSubmitOnlyFirstForm = CBool(Request.Form("txtSubmitOnlyFirstForm")) Dim bolDisplayFormPage1, bolDisplayFormPage2, bolDisplayFeedbackPageForFirstForm, bolDisplayFeedbackPageForSecondForm bolDisplayFormPage1 = False bolDisplayFormPage2 = False bolDisplayFeedbackPageForFirstForm = False bolDisplayFeedbackPageForSecondForm = False If CBool(Request.QueryString("display_page2")) And bolSubmitOnlyFirstForm = False Then bolDisplayFormPage2 = True ElseIf CBool(Request.QueryString("display_page2")) And bolSubmitOnlyFirstForm Then bolDisplayFeedbackPageForFirstForm = True ElseIf CBool(Request.QueryString("display_feedback_page")) Then bolDisplayFeedbackPageForSecondForm = True ElseIf Request.Form = "" Then bolDisplayFormPage1 = True End If 'now we know what to display and do 'if this is the second form or the feedback for the first page If bolDisplayFeedbackPageForFirstForm Or bolDisplayFormPage2 Then 'get the values that were poplulated on the fist form (used for the second forms hidden fieds) strSearching = Request.Form("optSearching") strMultiple = Request.Form("optMultiple") strPrediction = Request.Form("optPrediction") strProgramming = Request.Form("optProgramming") strProtein = Request.Form("optProtein") strMicroarray = Request.Form("optMicroarray") strChemi = Request.Form("optChemi") strDBManagement = Request.Form("optDBManagement") strFundamentals = Request.Form("optFundamentals") strOpenQuestion10 = Request.Form("txtOpenQuestion10") strOpenQuestion11 = Request.Form("txtOpenQuestion11") strName = Request.Form("txtName") strOrgName = Request.Form("txtOrgName") End If 'if this is the feedback page of the second form If bolDisplayFeedbackPageForSecondForm Then 'get the second form's hidden values strSearching = Request.Form("txtSearching") strMultiple = Request.Form("txtMultiple") strPrediction = Request.Form("txtPrediction") strProgramming = Request.Form("txtProgramming") strProtein = Request.Form("txtProtein") strMicroarray = Request.Form("txtMicroarray") strChemi = Request.Form("txtChemi") strDBManagement = Request.Form("txtDBManagement") strFundamentals = Request.Form("txtFundamentals") strOpenQuestion10 = Request.Form("txtOpenQuestion10") strOpenQuestion11 = Request.Form("txtOpenQuestion11") strName = Request.Form("txtName") strOrgName = Request.Form("txtOrgName") 'get the second form's poplulated values bolGRAIL = CBool(Request.Form("chkGRAIL")) bolGENES = CBool(Request.Form("chkGENES")) bolMZEF = CBool(Request.Form("chkMZEF")) bolGENSCAN = CBool(Request.Form("chkGENSCAN")) bolBLAST = CBool(Request.Form("chkBLAST")) bolEMBOSS = CBool(Request.Form("chkEMBOSS")) bolCLUSTALW = CBool(Request.Form("chkCLUSTALW")) bolGCG = CBool(Request.Form("chkGCG")) bolCELERA = CBool(Request.Form("chkCELERA")) strOther12 = Request.Form("txtOther12") bolNCBI = CBool(Request.Form("chkNCBI")) bolEnsembl = CBool(Request.Form("chkEnsembl")) bolUCSC = CBool(Request.Form("chkUCSC")) bolProprietary = CBool(Request.Form("chkProprietary")) strOther17 = Request.Form("txtOther17") bolDuration2days = CBool(Request.Form("chkDuration2days")) bolDuration4days = CBool(Request.Form("chkDuration4days")) bolDuration2weeks = CBool(Request.Form("chkDuration2weeks")) bolDuration4weeks = CBool(Request.Form("chkDuration4weeks")) bolDuration6months = CBool(Request.Form("chkDuration6months")) strPrice2days = Request.Form("txtPrice2days") strPrice4days = Request.Form("txtPrice4days") strPrice2weeks = Request.Form("txtPrice2weeks") strPrice4weeks = Request.Form("txtPrice4weeks") strPrice6months = Request.Form("txtPrice6months") strOpenQuestion13 = Request.Form("txtOpenQuestion13") strOpenQuestion14 = Request.Form("txtOpenQuestion14") strOpenQuestion15 = Request.Form("txtOpenQuestion15") strOpenQuestion16 = Request.Form("txtOpenQuestion16") strBudget = Request.Form("optBudget") bolContactUser = CBool(Request.Form("chkContactUser")) End If Select Case True Case bolDisplayFormPage1 %>

This survey contains 20 questions.  Respondants that complete both sections of the survey are entitled to receive a 10% discount off any CBRi course. SURVEY SECTION ONE – 11 questions Would your research capability be enhanced or improved by learning more about the following topics?
Your Name:   Organization Name:
1.	Database similarity searching (e.g. Doing BLAST searches to find potential homologues of a gene)    Yes No
2.	Multiple sequence alignments & phylogenetics (e.g. comparing several similar proteins to look for functional relationships)    Yes No
3.	Sequence feature prediction (e.g. de novo gene prediction or promoter prediction)    Yes No
4.	Bioinformatics programming (e.g. design of Perl scripts for simple data manipulation)    Yes No
5.	Protein structure analysis & structure/function prediction (e.g. 3D structural comparisons to identify mechanisms of drug action)    Yes No
6.	Microarray analysis (e.g. interpretation/data mining from microarray experiments)    Yes No
7.	Chemi-informatics software (e.g. generating, managing and interpreting data from high-throughput chemical assays)    Yes No
8.	Database management (e.g. design of efficient data storage and retrieval systems for high data output research)    Yes No
9.	Biological fundamentals (e.g. focused background information for non-biologists)    Yes No
10.	What is the most important computational restriction in your current work? (i.e. “I would like to compare large sets of human and mouse ESTs under set criterion”)
11.	What process/feature/tool/knowledge would allow you to overcome that restriction? (i.e. “my work would be more efficient if I could automate the EST retrieval process”)
TO SUBMIT PART ONE AND END SURVEY: TO SUBMIT PART ONE AND CONTINUE ON TO PART TWO:

<% Case bolDisplayFormPage2 %>

SURVEY SECTION TWO – 9 Questions
12.	Which of the following specific application packages / sequence searches do you use: GRAIL GCG EMBOSS GENSCAN / GENOMESCAN BLAST MZEF CLUSTALW CELERA DISCOVERY GENES Other
13.	Which of the above would you like to be able to use more effectively in your research?
14.	What sorts of bioinformatics research do you currently perform?
15.	What are the most problematic areas in your current research with respect to computational limitations and bioinformatics tools?
16.	What computational platforms do you currently use: (e.g. use 2 single processors/dual processors/ect computers running windows)
17.	Which of the following databases do you frequently access: Proprietary Human Genome Browser (UCSC) Ensembl NCBI Other
18.	Does your Company currently have a budget for sending employees to training courses and workshops? Yes No
19.	Which of the following would be the ideal bioinformatics course structure to meet your companies needs and what is the maximum your Company would be prepared to pay? Duration Acceptable Price 2 days 4-5 days 2 weeks 4 weeks 6 months - 1 year (part-time)
If you would like more information regarding the courses, please check here and someone from our organization will contact you. I would like to receive more information regarding the CBRi initiative.

<% Case bolDisplayFeedbackPageForFirstForm 'get values 'email results bolErrorOccured = SendEmail() 'give feedback If Err.Number <> 0 Or bolErrorOccured Then strFeedback = strFeedback & " However there was an error processing your information. Please try again later." Else strFeedback = strFeedback & " Your information has been submitted successfully." End If Response.Write strFeedback Case bolDisplayFeedbackPageForSecondForm 'get the values of the first form 'get the values of the second form 'email the results bolErrorOccured = SendEmail() 'give feedback If Err.Number <> 0 Or bolErrorOccured Then strFeedback = strFeedback & " However there was an error processing your information. Please try again later." Else strFeedback = strFeedback & " Your information has been submitted successfully." End If Response.Write strFeedback End Select %>