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%"> <td>
<td width="30%" class="norm">Um Adressen für die Firmen einzutragen <a href="adressen.asp">hier<a> klicken<td>
<td width="35%"> <td>
</tr>
</table>
<h1>Personal Eingabe</h1>
<table border=0 width=100%>
<tr>
<td width=20%> </td>
<td class="norm">Firmenname:</td>
<td><% =Request.Form("name") %></td>
</tr>
<tr>
<td> </td>
<td class="norm">Ingeoforum- Mitglied:</td>
<td><% =Request.Form("igf_mg") %></td>
</tr>
<tr>
<td> </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
