Komme nicht weiter

nixwisser

Mitglied
Hallo Leute

könnte vieleicht einer von euch mal über diese Dateien Rüber schauen

der zeigt mir immer den Fehler:
"Datentypen in Kriterienausdruck unverträglich" an


DAnke schon mal im vorraus


Gruß nixwisser
 

Anhänge

  • input.txt
    2,5 KB · Aufrufe: 51
Zuletzt bearbeitet:

nixwisser

Mitglied
Hall Leute


Irgendwie Funktioniert das Datei hochladen nicht so richtig des halb hier noch mal der Quell Text:



ElseIf Request.Form("func")= "fill_inst/firm_out" Then

strsql2="SELECT * FROM institution"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open strsql2,conn,3,3

rs.ADDNEW
If Request.Form("name") <> "" Then rs.fields("name") = Request.Form("name") Else rs.fields("name") = "Kein Nachname eingetragen"
rs.fields("igf_mg") = Request.Form("igf_mg")
If Request.Form("anmerkung") <> "" Then rs.fields("anmerkung") = Request.Form("anmerkung") Else rs.fields("anmerkung") = "0"
rs.UPDATE

%>
<table width="80%">
<tr>
<td width="5%">&nbsp;<td>
<td width="30%" class="norm">Um Adressen für die Firmen einzutragen <a href="adressen.asp">hier<a> klicken<td>
<td width="35%">&nbsp;<td>
</tr>
</table>


<h1>Personal Eingabe</h1>
<table border=0 width=100%>
<tr>
<td width=20%>&nbsp;</td>
<td class="norm">Firmenname:</td>
<td><% =Request.Form("name") %></td>
</tr>
<tr>
<td>&nbsp;</td>
<td class="norm">Ingeoforum- Mitglied:</td>
<td><% =Request.Form("igf_mg") %></td>
</tr>
<tr>
<td>&nbsp;</td>
<td class="norm">Anmerkungen:</td>
<td><% =Request.Form("anmerkung") %></td>
</tr>
</table>
<%

' Kann man vieleicht auch für die anderen Skripte verwenden'
sql3= "SELECT * FROM institution WHERE (institution.name = '" & Request.Form("name")& "')"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open sql3,conn,3,3

Response.Write(rs2.Fields("i_id"))
Response.Write(rs2.Fields("name"))



'Das Request.Form Kommt von einem Formular k_id Sind Checkboxen, welche dynamisch generiert
werden per SQL abfrage und dann mit einer Schleife als checkboxen ausgegeben werden'

' Wo liegt der Fehler????'
sql4= "SELECT * FROM kategorien WHERE (kategorien.k_id = '" & Request.Form("k_id") & "')"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.open sql4,conn,3,3

Response.Write(rs2.Fields("k_id"))
Response.Write(rs2.Fields("kategorie"))





rs.close
rs2.close
rs3.close