<% @LANGUAGE="VBSCRIPT" %>
<%
strcustID = cStr(Request.Form("txtcustid"))
stritem1 = cStr(Request.Form("txtitem1"))
stritem2 = cStr(Request.Form("txtitem2"))
stritem3 = cStr(Request.Form("txtitem3"))
Response.Write(strcustID)
Response.Write(stritem1)
Response.Write(stritem2)
Response.Write(stritem3)
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "group7db"
strSQLStatement = "INSERT INTO OTABLE" _
& "( ID, ITEMA, ITEMB, ITEMC ) " _
& "SELECT '" & strcustID & "' AS ID, '"_
& stritem1 & "' AS ITEMA, '"_
& stritem2 & "' AS ITEMB, '"_
& stritem3 & "' AS ITEMC ;"
oConn.Execute(strSQLStatement)
oConn.Close
%>
<%
Dim cost1
Dim cost2
Dim cost3
Dim total
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "group7db"
strSQLstatement = "SELECT * from OTABLE where ID like '"&strcustID&"';"
Set oRs = oConn.Execute(strSQLStatement)
oRs.MoveFirst
cost1 = oRs("ITEMA") * 10
cost2 = oRs("ITEMB") * 15
cost3 = oRs("ITEMC") * 10
total = cost1 + cost2 + cost3 + 15
%>
New Page 1
Here is the total cost of your order!