Vis opskrifter i den rigtige kategori

Opskrift.asp skal se sådan herud:

<%
' Sikrer mod SQL injection
If isNumeric(Request.QueryString("ID")) Then

    set conn = server.CreateObject("adodb.connection")
    set rs = server.CreateObject("adodb.recordset")
    conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
   
    SQL = "SELECT * FROM opskrift WHERE categori=" & Request.QueryString("ID")
    set rs = conn.execute(sql)
    Do While Not rs.EOF
   
    response.write "<a href=""view.asp?id=" & rs("id") & """>"& rs("overskrift") & "</a><br>"
   
    ' Løber posterne i gennem
    rs.MoveNext
    Loop
   
    ' Lukker forbindelse
    Conn.Close
    Set Conn = Nothing

Else
  Response.Write("Kategori ID er ikke et tal.")
End If
%>

jeg får denne fejl, når jeg prøvet at bruge dit ex :-)

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

opskrift.asp, line 62

line 62 set rs = conn.execute(sql)

Feltet categori ikke et tal felt?

Hov, det kan man da ikke sige.

Er feltet 'categori' ikke et talfelt?

feltet 'categori' ikke et talfelt, der er et tekstfelt

Ok, det er klart at foretrække du laver det om til talfelt. Men ellers skal din SQL streng se sådan her ud:

SQL = "SELECT * FROM opskrift WHERE categori='" & Request.QueryString("ID") & "'"

jeg har lavt det om til et talfelt, og er ved at lave min side, hvor opskriften tilføjes om.
Jeg får denne fejl på opskrift.asp

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

opskrift.asp, line 62

line 62 set rs = conn.execute(sql)

Jeg har bygget min side med tilføjelserne af opskrifter om, men får denne fejl
Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

gem.asp, line 25

line 25  con.Execute sql_insert

------------------------
til.asp
<form method="POST" action="gem.asp">
  <input type="hidden" name="Mode" value="opskrift">
  <input type="hidden" name="Id" value="<%= Request("Id") %>">
  <div align="center">
    <center>
    <table border="0" cellpadding="0" cellspacing="0" width="420">
      <tr>
        <td width="81"><FONT FACE="VERDANA" SIZE="2">Navn:</FONT></td>
        <td width="465"><input type="text" name="name" size="44" maxlength="255"></td>
      </tr>
      <tr>
        <td width="81"><FONT FACE="VERDANA" SIZE="2">E-Mail:</FONT></td>
        <td width="465"><input type="text" name="email" size="44" maxlength="255"></td>
      </tr>
      <tr>
        <td width="81" valign="top"><FONT FACE="VERDANA" SIZE="2">Navn på opskrift:</FONT></td>
        <td width="465"><textarea class="area" rows="4" name="overskrift" cols="33"></textarea></td>
      </tr>
      <tr>
        <td width="81" valign="top"><FONT FACE="VERDANA" SIZE="2">Ingredienser:</FONT></td>
        <td width="465"><textarea class="area" rows="4" name="ingred" cols="33"></textarea></td>
      </tr>
<tr>
        <td width="81" valign="top"><FONT FACE="VERDANA" SIZE="2">Fremgangsmåde:</FONT></td>
        <td width="465"><textarea class="area" rows="4" name="recipe" cols="33"></textarea></td>
      </tr>
<tr>
<td>
Antal personer:</td>
<td>
<select size="1" name="personer">
<option>Vælg</option>
<option value="1 pers">1 pers.</option>
<option value="2 pers">2 pers.</option>
<option value="4 pers">4 pers.</option>
<option value="6 pers">6 pers.</option>
<option value="8 pers">8 pers.</option>
<option value="10 pers">10 pers.</option>
<option value="12 pers">12 pers.</option>
</select>
</td>
</tr>
    </table>
    </center>
  </div>
  <p align="center"><input type="submit" value="Gem Kommentar" name="Send" class="button"></p>
</p>
</form>
-------------
gem.asp
<%
  ' Declaring variables
  Dim name, email, overskrift,ingred,recipe, personer, data_source, con, sql_insert

  ' A Function to check if some field entered by user is empty
  Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
  End Function

  ' Receiving values from Form
  overskrift = ChkString(Request.Form("overskrift"))
  ingred = ChkString(Request.Form("ingred"))
  recipe = ChkString(Request.Form("recipe"))
  navn = ChkString(Request.Form("navn"))
  personer = ChkString(Request.Form("personer"))
  Id = ChkString(Request.Form("Id"))

  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb")
    sql_insert = "insert into opskrift (Id, name, email, personer, overskrift, ingred, recipe) (" & Id & ", '" & name & "', '" & email & "'& personer & '" & overskrift & "' & ingred & "''" & recipe & "' )"
       
  ' Creating Connection Object and opening the database
  Set con = Server.CreateObject("ADODB.Connection")
  con.Open data_source
  con.Execute sql_insert
  ' Done. Close the connection
  con.Close
  Set con = Nothing
  Response.Write "Tak for din opskrift."
%>

Prøv evt. at udskrive din SQL streng, response.write SQL

Denne her skal du bruge når dit felt 'categori' er talfelt i databasen:
SQL = "SELECT * FROM opskrift WHERE categori=" & Request.QueryString("ID")

Men på din side hvor man tilføjer opskrifter, har du da intet sted hvor mange vælger hvilken kategori den skal være i?

Jeg har fået det til at virke nu...
gem.asp
<%
  ' Declaring variables
  Dim name, email, personer,overskrift,ingred,recipe, data_source, con, sql_insert

  ' A Function to check if some field entered by user is empty
  Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
  End Function

  ' Receiving values from Form
  overskrift = ChkString(Request.Form("overskrift"))
  email = ChkString(Request.Form("email"))
  ingred = ChkString(Request.Form("ingred"))
  recipe = ChkString(Request.Form("recipe"))
  navn = ChkString(Request.Form("navn"))
  personer = ChkString(Request.Form("personer"))
  Id = ChkString(Request.Form("Id"))

  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb")
sql_insert = "insert into opskrift (Id, navn, email, personer, overskrift, ingred, recipe, dato) values (" & Id & ", '" & navn & "', '" & email & "','" & personer & "', '" & overskrift & "','" & ingred & "','" & recipe & "', Date() )"
       
  ' Creating Connection Object and opening the database
  Set con = Server.CreateObject("ADODB.Connection")
  con.Open data_source
  con.Execute sql_insert
  ' Done. Close the connection
  con.Close
  Set con = Nothing
  Response.Write "Tak for din opskrift."
%>
opskrift.asp
<%
' Sikrer mod SQL injection
If isNumeric(Request.QueryString("Id")) Then

    set conn = server.CreateObject("adodb.connection")
    set rs = server.CreateObject("adodb.recordset")
    conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
   
    SQL = "SELECT * FROM opskrift WHERE (Id = " & Request.QueryString("Id") & ")"
    set rs = conn.execute(sql)
    Do While Not rs.EOF
   
    response.write "<a href=""view.asp?id=" & rs("id") & """>"& rs("overskrift") & "</a><br>"
   
    ' Løber posterne i gennem
    rs.MoveNext
    Loop
   
    ' Lukker forbindelse
    Conn.Close
    Set Conn = Nothing

Else
  Response.Write("Kategori ID er ikke et tal.")
End If
%>
<center><a href="java script:window.open('til.asp?Id=<%= Request("id") %>','Detaljer','toolbar=0,status=0,scrollbars=yes,resizable=no,width=500,height=400,top=50,left=50').focus();void(0)">Skriv en kommentar</a></center>

Mange tak for hjælpen :)

Det var så lidt, mange tak for point :-)