add a line before the Execute and tell us what strSQL contains.
response.write (strSQL)
response.flush
set rs =Connection.Execute(mySQL)
On 6/15/05, kejeckam <[EMAIL PROTECTED]> wrote:
> 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 the Yahoo! Terms of Service.
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/
