i appreciate all replies!!!
does anyone know why im getting this error...
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/paycheck3.asp, line 74
the line in relation to this eror is:
data1.Open query1, conn
the code is:
<%
'Dimension variables
Dim connection
Dim check
Dim data
Dim insert
Dim query
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open("credit")
Set data = Server.CreateObject("ADODB.RecordSet")
query = "SELECT * FROM credInfo "
data.CursorType=2
data.LockType=3
data.Open query, connection
data.AddNew
data.Fields("fullname")= Request("fullname")
data.Fields("add1")= Request("add1")
data.Fields("add2")= Request("add2")
data.Fields("email")= Request("email")
data.Fields("cardType")= Request("cardType")
data.Fields("cardNum")= Request("cardNum")
data.Fields("cardExpiryMonth")= Request("cardExpiryMonth")
data.Fields("cardExpiryYear")= Request("cardExpiryYear")
data.Fields("totalPrice")= Request("totalPrice")
data.Update
data.Close()
connection.Close()
%><%
'Dimension variables
Dim conn
Dim check1
Dim data1
Dim insert1
Dim query1
Dim newQuant
Dim oldQuant
Dim one
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("auction1")
Set data1 = Server.CreateObject("ADODB.RecordSet")
query1 = "SELECT Quant FROM Holidays WHERE Quant = '" &_
Request ( "Quant") & "'"
data1.CursorType=2
data1.LockType=3
data1.Open query1, conn
oldQuant = CStr (Request("Quant"))
newQuant = (insert1 & (oldQuant) - 1)
data1.Fields("Quant")= newQuant
data1.Update
data1.Close()
conn.Close()
Response.Write(newQuant)
%>
my aim is to reduce the quant value in the database by 1!!
does anyone know why im getting this error...
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/paycheck3.asp, line 74
the line in relation to this eror is:
data1.Open query1, conn
the code is:
<%
'Dimension variables
Dim connection
Dim check
Dim data
Dim insert
Dim query
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open("credit")
Set data = Server.CreateObject("ADODB.RecordSet")
query = "SELECT * FROM credInfo "
data.CursorType=2
data.LockType=3
data.Open query, connection
data.AddNew
data.Fields("fullname")= Request("fullname")
data.Fields("add1")= Request("add1")
data.Fields("add2")= Request("add2")
data.Fields("email")= Request("email")
data.Fields("cardType")= Request("cardType")
data.Fields("cardNum")= Request("cardNum")
data.Fields("cardExpiryMonth")= Request("cardExpiryMonth")
data.Fields("cardExpiryYear")= Request("cardExpiryYear")
data.Fields("totalPrice")= Request("totalPrice")
data.Update
data.Close()
connection.Close()
%><%
'Dimension variables
Dim conn
Dim check1
Dim data1
Dim insert1
Dim query1
Dim newQuant
Dim oldQuant
Dim one
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("auction1")
Set data1 = Server.CreateObject("ADODB.RecordSet")
query1 = "SELECT Quant FROM Holidays WHERE Quant = '" &_
Request ( "Quant") & "'"
data1.CursorType=2
data1.LockType=3
data1.Open query1, conn
oldQuant = CStr (Request("Quant"))
newQuant = (insert1 & (oldQuant) - 1)
data1.Fields("Quant")= newQuant
data1.Update
data1.Close()
conn.Close()
Response.Write(newQuant)
%>
my aim is to reduce the quant value in the database by 1!!