ASP Problems

Im having a problem with this particular part of an ASP file. What im trying to do is add a cell to a table if a record exists from the second record set in correspondance to the first. It gives me a mismatch error.

<%Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\windows\desktop\vdm.mdb" strSQL = "SELECT * FROM Agreements" Set RS = Con.Execute(strSQL) WHILE NOT RS.EOF %>

<%=RS( "VendorName" )%> <%=RS( "AircraftType" )%> <%=RS( "EffectiveDate" )%> <%=RS( "TerminationDate" )%> <%=RS( "AgreementType" )%> <%=RS( "CAEDoc#/Rev#" )%> <%=RS( "Restriction" )%> <%=RS( "PeriodPayment" )%> <%=RS( "TypeOfData" )%> <%=RS( "RemarkBox" )%>

<%Dim strTemp strTemp =RS( "EffectiveDate" ) strSQL1 = "SELECT * FROM Amendments WHERE AgreeEffectiveDate = ' & strTemp & '" Set RS1 = Con.Execute(strSQL1) IF NOT RS1.EOF THEN %>

Amendments <%ELSE%> No Amendments

<%END IF%>

<% RS.MoveNext WEND %>