Dont know why I get the error below for line 35 and it contains this
line of code "set rs =Connection.Execute(mySQL)"
the error says
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in
criteria expression.
/interswitch.asp, line 35
please what could be wrong
<%@ Language=VBScript %>
<% Option Explicit %>
<%
dim txnref1
dim dclaccount
dim amt
dim mySQL
dim T1
dim T2
txnref1=request.form("value3")
dclaccount=request.form("value1")
amt=request.form("value2")
Dim ConnectionString
ConnectionString = "DRIVER={Microsoft Access Driver
(*.mdb)};Dbq=" & server.mappath("/inter.mdb") & ";UID=;PWD=;"
Dim Connection
Set Connection = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Connection.ConnectionTimeout = 30
Connection.CommandTimeout = 80
Connection.Open ConnectionString
Dim rs
mySQL="select * from dclinter where txnref =" & txnref1
' Retrieve the records
set rs =Connection.Execute(mySQL)
do while not rs.eof
T1=rs("txnref")
T2=rs("rspcode")
if T1=txnref1 and T2="00" then
dim cat
cat=T1
rs("dclaccount")=dclaccount
rs("amt")=amt
rs.update
strHost = "mail.dcltelecom.com"
Dim objNewMail 'As CDONTS.NewMail
Set objNewMail = Server.CreateObject
("CDONTS.NewMail")
ObjNewMail.To = "[EMAIL PROTECTED]"
ObjNewMail.From = "[EMAIL PROTECTED]"
ObjNewMail.Subject = "New Payment Information"
ObjNewMail.Body = "A cash payment of Naira NGN " &
amt & " " & "was paid in with DCL Account Number: " & dclaccount & "
with transaction reference number " & txnref1
ObjNewMail.Send
Set ObjNewMail = Nothing
response.write "successfull"
end if
if T1 =txnref1 and T2 <> "00" then
rs("dclaccount")=dclaccount
rs("amt")=amt
rs.update
response.write "failed"
end if
rs.movenext
loop
if cat <> txnref1 then
response.write "Please the transaction was
uncompleted"
response.write txnref1 & " " & dclaccount
end if
rs.close
set rs=nothing
Connection.close
set Connection=nothing
%>
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
