<%@ Language = VBscript %>
<%
carID=Request.Querystring("carID")
tranID=Request.Querystring("tranID")
gradeID=Request.Querystring("gradeID")
appID=Request.Querystring("appID")
appRate=Request.Querystring("appRate")
fname=Request.Querystring("fname")
lname=Request.Querystring("lname")
email=Request.Querystring("email")

'INSERT CLIENT INFORMATION
 
SQLINSERT="INSERT INTO Clients (fname, lname, email, carID, tranID, gradeID) "
SQLINSERT=SQLINSERT & "VALUES ("
SQLINSERT=SQLINSERT & "'" & fname & "', "
SQLINSERT=SQLINSERT & "'" & lname & "', "
SQLINSERT=SQLINSERT & "'" & email & "', "
SQLINSERT=SQLINSERT & carID & ", "
SQLINSERT=SQLINSERT & tranID & ", "
SQLINSERT=SQLINSERT & gradeID & ") "

set connupdate = server.createobject("ADODB.Connection")
connupdate.open "parking"
connupdate.execute(SQLINSERT)


ourdate =  FormatDateTime(now,vbLongDateTime)

'UPDATE EMPLOYEES TABLE

SQLUPDATE="UPDATE Appointments SET " 
SQLUPDATE=SQLUPDATE & "email = '" & email & "', "
SQLUPDATE=SQLUPDATE & "appTimeReserved = '" & ourdate & "', "
SQLUPDATE=SQLUPDATE & "appStatus = 'reserved', "
SQLUPDATE=SQLUPDATE & "appRate = " & appRate  
SQLUPDATE=SQLUPDATE & " WHERE appID =" & appID


connupdate.execute(SQLUPDATE)
connupdate.close


URL="appmade.asp?fname=" & fname
Response.redirect (URL)

%>