Modify the book store to use an HTML form using HTTP POST instead of the XMLHttpRequest object.

Question

What will be an ideal response?

Answer 1

The first table contains submit.asp, the second table contains theItems.js and the third table contains
index.html.

```
1 <% @Language = "VBScript" %>
2 <% Option Explicit %>
3 <% Response.Expires = 0 %>
4 <%
5 ' Exercise 28.4: submit.asp
6
7 Dim objConn, objRS, sql, errorMessage, i, strCart
8 Dim storeFrontOrderID, storeFrontOrderDate, customerID
9
10 If Request( "xml" ) <> Empty Then
11 strCart = Request( "xml" )
12 Else
13 Call Response.Redirect( "index.html" )
14 End If
15
16 If Request( "cmdButton" ) = "Cancel" Then
17 Call Response.Redirect( "index.html" )
18 End If
19
20 If Request( "cmdButton" ) = "Submit" Then
21 If Request( "txtUser" ) <> Empty And _
22 Request( "txtPass" ) <> Empty Then
23
24 Set objConn = Server.CreateObject( "ADODB.Connection" )
25 Set objRS = Server.CreateObject( "ADODB.RecordSet" )
26 Call objConn.Open( "DSN=dbStorefront" )
27 sql = "SELECT * FROM Customer WHERE userid = '" & _
28 Request( "txtUser" ) & "' AND password = '" & _
29 Request( "txtPass" ) & "'"
30
31 Call objRS.Open( sql, objConn, 1, 2 )
32
33 If objRS.RecordCount > 0 Then
34 Session( "storeFrontLoggedIn" ) = objRS( "customerid" )
35 customerID = objRS( "customerid" )
36 Call objRS.Close()
37
38 objRS.ActiveConnection = objConn
39 objRS.Source = "Orders"
40 objRS.CursorType = 1 ' adOpenKeyset
41 objRS.LockType = 2 ' adLockPessimistic
42 Call objRS.Open()
43
44 Call objRS.AddNew()
45 objRS( "orderdate" ) = Now
46 objRS( "product_xml" ) = strCart
47 objRS( "verified" ) = True
48 objRS( "customerid" ) = customerID
49 objRS( "total_cost" ) = Request( "total" )
50 Call objRS.Update()
51 Call objRS.Close()
52
53 ' Finished
54 Session( "error" ) = "Order complete. " & _
55 "Thank You for your purchase."
56 Call Response.Redirect( "account.asp" )
57 Else
58 Call objRS.Close()
59 Call objConn.Close()
60 Session( "storeFrontLoggedIn" ) = Empty
61 errorMessage = "Invalid Username / Password pair."
62 End If
63 Else
64 Session( "storeFrontLoggedIn" ) = Empty
65 errorMessage = "Invalid Username / Password pair."
66 End If
67 End If
68 %>
69
70
71
72
73
74
75
76
78
79
80
81