check per stampa

[forte78]

salve ho questo problema non mi rileva i check che ho selezionato nella pagina successiva di collegamento


vi mostro le 2 pagine :

pag.di selezione:

<script>


function OpenPage(sValue)
{
if (document.all("IniziaPer")!=null) {

document.all("IniziaPer").value = sValue;
if (document.all("sampleform")!=null) {
document.all("sampleform").submit();
}
}
}





function checkAll(bChecked)
{
var oChk = document.all("codiceid");

if (oChk.length!=null) {
for (var i=0;i<oChk.length;i++)
oChk[i].checked=bChecked;
} else {
if (oChk!=null)
oChk.checked=bChecked;
}
}

</script>








<script>


function stampa()
{
var oFrm = document.all("sampleform");
if (oFrm!=null) {
var sOldAction = oFrm.action;
var sOldTarget = oFrm.target;

oFrm.action = "anteprimarub.asp?cod=<%=Request.Querystring("cod" )%>";
oFrm.target = "_anteprima";
oFrm.submit();

oFrm.action = sOldAction;
oFrm.target = sOldTarget;

}
}


</script>


....................


<input type="checkbox" name="codiceid" value="<%=rec("id")%>">


e la selezione funziona perfettamente


i problemi sono qua risultato di selezione :




<%
'NUMERO RISULTATI

strSQL = "SELECT im.*,col.NumeroColloqui,abb.abbinato FROM (rubrica im " & vbcrlf
strSQL = strSQL & " left join (select id,Count(*) As NumeroColloqui from rubrica where id<>'' group by id) col on col.id=CStr(im.id)) "
strSQL = strSQL & " inner join (select id,Count(*) as abbinato from rubrica where id<>'' group by id) abb on abb.id=CStr(im.id)"
strSQL = strSQL & " WHERE 1=1 "



If Request.Form("codiceid")<>"" Then
Dim sCodice
Dim bFirst : bFirst = true
strSQL = strsql & " AND im.id in ("
For Each sCodice In Request.Form("codiceid")
if Not bFirst Then strSQL = strsql & ","
strSQL = strsql & sCodice
bFirst = false
Next
strSQL = strsql & ") "
Else
strSQL = strsql & " and 1<>1 "
End if


Set rec = Server.CreateObject("ADODB.Recordset")
rec.cursorlocation = 3
rec.Open strSQL, conn

%>




questo l'errore


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Type mismatch in expression.

/ddd324/anteprimarub.asp, line 399



spero di aver spiegato al meglio il problema.
se ci sono problemi fatemi sapere
saluti

[Roby_72]

Stampati la query che stai costruendo prima di eseguirla, così verifichi cosa stai facendo.

Roby

[forte78]

Non prendendo in considerazione la query che ti ho scritto come potrei realizzare una query


considerando come tabella rubrica e come campo da collegare alle selezioni dei check il campo id ?


fammi sapere se hai qualche esempio.
grazie.