try changing the last part to: txnref ='" & txnref1 & "'"
>From: "kejeckam" <[EMAIL PROTECTED]> >Reply-To: [email protected] >To: [email protected] >Subject: [AspClassicAnyQuestionIsOk] real urgent. Query error >Date: Wed, 15 Jun 2005 19:39:53 -0000 > >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 > > >%> _________________________________________________________________ Free blogging with MSN Spaces http://spaces.msn.com/?mkt=nl-be 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/
