Problem with radio button and checkbox selection

[kastellu]

Hello,I have a problem with making a query by using a radio button and check box. For example,...

<%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open(Server.Mappath("_db/1.mdb"))set rs=Server.CreateObject("ADODB.recordset")sql="SELECT DISTINCT XXX FROM tblXXX"rs.Open sql,connXXX=request.form("XXX")%><form method="post"><input type=checkbox name="XXX" checked><input type="submit" /><%if XXX<>""   thenDim nSQL="SELECT * FROM tblXXX WHERE XXX = '" & XXX & "'  "Set rs = conn.execute(SQL)if not rs.EOF then%>..... Now folows the data that i should get,...

O.K. When i use this code with textbox or select box works prfectly , but now i am trying to make some parameters which includes radio butten and check box as well. And when i am trying to get the data from that code i get error:Technical Information (for support personnel)Error Type:Microsoft JET Database Engine (0x80040E07)Data type mismatch in criteria expression./hermesPOPRAVILO.asp, line 13Browser Type:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 1.1.4322) Page:POST 63 bytes to /19833266_POPRAVILO_HERMES.aspPOST Data:naziv1=Hermes+d.o.o.&naprava1=Osnovna+plo%9A%E8a&popravljeno=on Time:5. junij 2006, 13:34:52 More information:Microsoft Support Can anyone help what i am doing wrong,...,thanks!Regards,K

[furqankarim]

Actually You know where you are providing the criteria for SQL you are providing the wrong data type i think it demands for some integer type and you are providing String Type because you usually get this problem when you are trying to compare or pass data to different datatype thingyif you can send me the full code then i would be eligible to tell you why you are getting this errorThnaks

Hello,I have a problem with making a query by using a radio button and check box. For example,...

<%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open(Server.Mappath("_db/1.mdb"))set rs=Server.CreateObject("ADODB.recordset")sql="SELECT DISTINCT XXX FROM tblXXX"rs.Open sql,connXXX=request.form("XXX")%><form method="post"><input type=checkbox name="XXX" checked><input type="submit" /><%if XXX<>""   thenDim nSQL="SELECT * FROM tblXXX WHERE XXX = '" & XXX & "'  "Set rs = conn.execute(SQL)if not rs.EOF then%>..... Now folows the data that i should get,...

O.K. When i use this code with textbox or select box works prfectly , but now i am trying to make some parameters which includes radio butten and check box as well. And when i am trying to get the data from that code i get error:Technical Information (for support personnel)Error Type:Microsoft JET Database Engine (0x80040E07)Data type mismatch in criteria expression./hermesPOPRAVILO.asp, line 13Browser Type:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 1.1.4322) Page:POST 63 bytes to /19833266_POPRAVILO_HERMES.aspPOST Data:naziv1=Hermes+d.o.o.&naprava1=Osnovna+plo%9A%E8a&popravljeno=on Time:5. junij 2006, 13:34:52 More information:Microsoft Support Can anyone help what i am doing wrong,...,thanks!Regards,K

<{POST_SNAPBACK}>

[kastellu]

I have send it to you PM!

[kastellu]

Can somebody else help me with this one? This is the whole code,..., i din t translate it, but u will understand it. If you look at first post you will see what i am trying to do. The problem is check box because it doesent gives me the result but send me an error. If i remove the code of a check box and SELECT statement of it the code work,... , but now gives me an error written two post up.

<%'funkcija, ki poskrbi za urejanje tekstaFunction uredi(tekst,akcija)		'če je akcija 1 potem vpisujemo v bazo, drugače pa beremo iz nje	if akcija = 1 then	  'preberemo podatke iz baze (zamenjamo odstavke z <br>)  uredi = Replace(tekst,"<BR>",Chr(13)+Chr(10))  's tem delom poskrbimo, da vse enojne narekovaje zamenjamo  'z AAA, ki jih potem pri branju iz baze pretvorimo nazaj v narekovaj  uredi = Replace(uredi,"'","AAA")		else	  If Not IsNull(tekst) Then 	 'preberemo podatke iz baze (zamenjamo odstavke z <br>) 	 uredi = Replace(tekst,"<BR>",Chr(13)+Chr(10)) 	 uredi = Replace(uredi,"AAA","'")	  Else 	 'če ni teksta za urediti vrnemo prazen string 	 uredi=""  End If		end if	End Function'deklaracija spremenljivkDim SQL, conn, rs %><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open(Server.Mappath("_db/popravila.mdb"))set rs=Server.CreateObject("ADODB.recordset")sql="SELECT DISTINCT Naziv FROM tblPopravljeno ORDER BY Naziv"rs.Open sql,connnaziv=request.form("naziv1")%><form method="post"><input type=text name="naziv1" value="Hermes d.o.o. "><input type="submit" /><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open(Server.Mappath("_db/popravila.mdb"))set rs=Server.CreateObject("ADODB.recordset")sql="SELECT DISTINCT Naprava FROM tblPopravljeno ORDER BY Naprava"rs.Open sql,connnaprava=request.form("naprava1")%><select name="naprava1"><%  do until rs.EOF    response.write("<option")    if rs.fields("naprava")=naprava then      response.write(" selected")    end if    response.write(">")    response.write(rs.fields("naprava"))    rs.MoveNextlooprs.Closeset rs=Nothing %></select><%set conn=Server.CreateObject("ADODB.Connection")conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open(Server.Mappath("_db/popravila.mdb"))set rs=Server.CreateObject("ADODB.recordset")sql="SELECT DISTINCT Popravljeno FROM tblPopravljeno"rs.Open sql,connpopravljeno=request.form("popravljeno")%><input type="checkbox" name="popravljeno" checked/></form><%if naziv<>"" & naprava<>"" & popravljeno<>""  thenDim n'SQL stavek, ki nam prikaže popravilaSQL="SELECT * FROM tblPopravljeno WHERE naziv = '" & naziv & "' AND naprava = '" & naprava & "'  AND popravljeno = '" & popravljeno & "'  "'odpremo tabelo z SQL stavkomSet rs = conn.execute(SQL)'če baza ni praznaif not rs.EOF then%><tr class="text_0"><td><b>Št. naloga</b></td><td><b>Naprava</b></td><td><b>Oznaka naprave</b></td><td><b>Datum prevzema</b></td></tr><tr><td> </td></tr><%'zanka za prikaz vseh novicn = 1do%><tr><!-- povezava na urejanje novice --><td><a href="?sub=edt&id=<%=rs("Popravljeno_ID")%>" class="link_1" style=" text-decoration:none"><b><%=uredi(rs("popravljeno_ID"),0)%></b></a></td><td align="left" class="text_1"><%=uredi(rs("naprava"),0)%></td><td align="center" class="text_1"><%=uredi(rs("oznaka_naprave"),0)%></td><td align="center" class="text_1"><%=uredi(rs("datum_prevzema"),0)%></td><!-- povezava za brisanje vnosa --><td><a href="?sub=edt&id=<%=rs("Popravljeno_ID")%>" class="link_1">Uredi/</a></td><!-- povezava za brisanje vnosa --><td class="text_1"><a href="?sub=del&id=<%=rs("Popravljeno_ID")%>" class="text_1">Briši</a></td></tr><tr><td colspan="6"><hr noshade size="1" color="#cccccc"></td></tr><%n = n + 1rs.MoveNextLoop until rs.EOFEnd if%>	<%End if%>