Microsoft Word - Sam's Teach Yourself MySQL in 21 Days - SAMS.doc

330 'check gender

340 If Request("Contact_Gender") = "Male" Then

350 strSQL = strSQL & "M, "

360 Else

370 strSQL = strSQL & "F, "

380 End If

390 strSQL = strSQL & Request("Contact_EyeColor") & ", "

400 strSQL = strSQL & Request("Contact_Activity") & ", "

410 strSQL = strSQL & Request("Contact_Movie") & ", "

420 strSQL = strSQL & Request("Contact_Occupation") & ", "

430 'check smoker

440 If Request("Smoker") > 1 Then

450 strSQL = strSQL & "Y, "

460 Else

470 strSQL = strSQL & "N, "

480 End If

490 'Set up the command

500 mCmd.ActiveConnection = mConn

510 mCmd.CommandTimeout = 40

520 mCmd.CommandType =1

530 'Add the command to the command object

540 mCmd.CommandText = strSQL

550 'execute the command

560 mCmd.Execute