stud3 Geschrieben 11. Januar 2005 Teilen Geschrieben 11. Januar 2005 hallo, ich habe folgendes Problem, nach Ausführung des folgenden Codes, bekomme ich die Meldung: "No value given for one or more required parameters". Mein Ziel ist, nach der Ausführung der ASP Vorlage, dass die Tabelle (es ist nur eine kleine Test Tabelle) angezeigt wird, aber auf jeder Seite sollten 3 Datensätze maximal angezeigt werden. Nach dieser Tabelle sollten die Seitennummer als Links angezeigt werden. Das ist nur eine Probe mit einer einfachen Tabelle, der Code sollte mir hilfreich sein, wenn ich eine Tabelle mit 100 Datensätzen habe z. B. Es reicht mir als Demo eine Tabelle mit 5 Datensätzen (meine Tabelle Probe1). Da ich mich nicht gut mit ASP auskenne, wäre ich dankbar, wenn mir da jemand helfen würde. Was ist falsch in dem Code? <% Option Explicit On Error Goto 0 Dim objCon Dim objCmd Dim objRS Dim strConn Dim strQuery Dim strTabelle Dim strText, PageSize Dim intCounter, Page, intPageCounter PageSize = 3 set objRS = Server.CreateObject("ADODB.Recordset") strConn = "PROVIDER=Microsoft.Jet.OleDb.4.0;Data Source=" & _ Server.MapPath("../datenbank/db1.mdb") 'Name der Tabelle oder Abfrage, die geöffnet werden soll. strTabelle = "Probe1" strQuery = "SELECT Vorname, Nachname, Adresse, Ort, Geburtstag, Telefon " & _ "FROM Probe1" 'objRS.PageSize = PageSize Set objCon = CreateObject("ADODB.Connection") objCon.ConnectionString = strConn objCon.Open() 'Set objCmd = CreateObject("ADODB.Command") 'Set objCmd.ActiveConnection = objCon 'objCmd.CommandText = strQuery 'Set objRS = objCmd.Execute 'objRS.open strTabelle, objConn objRS.PageSize = PageSize objRS.open strQuery, strConn, 3, 3 Page = Request("Page") If len(Page) = 0 OR NOT isNumeric(Page) Then Page = 1 Elseif CDbl(Page) > CDbl(objRS.PageCount) OR CDbl(Page) < 1 Then Page = 1 End if objRS.AbsolutePage = Page intCounter = 1 Do while not objRS.eof And intCounter <= PageSize 'Einträge darstellen intCounter = intCounter + 1 objRS.moveNext Loop If not objRS.PageCount = "1" then If not Page = 1 Then %> <a href="Seite.asp?Page=<% = Page - 1 %>" class="NavLeiste"><< </a> <% End if For intPageCounter = 1 To objRS.PageCount If CDbl(intPageCounter) = CDbl(Page) Then %> <font class="NavLeiste2"><% = intPageCounter %></font> <% Else %> <a href="Seite.asp?Page=<% = intPageCounter %>" class="NavLeiste"><% = intPageCounter %></a> <% End if Next If CDbl(objRS.PageCount) > CDbl(Page) Then %> <a href="Seite.asp?Page=<% = Page + 1 %>" class="NavLeiste"> >></a> <% End if End if %> <html> <head> <title>Test Tabelle</title> <style> td { font-family:Arial;font-size: 11px; } </style> </head> <body> <table cellpadding="3" cellspacing="0" border="0"> <tr bgColor="#cccccc"> <td><b>Vorname</b></td> <td> </td> <td><b>Nachname</td> <td> </td> <td><b>Adresse</b></td> <td> </td> <td><b>Ort</b></td> <td> </td> <td><b>Geburtstag</b></td> <td> </td> <td><b>Telefon</b></td> <td> </td> </tr> <% Dim intCurrent Dim strBgColor intCurrent = 0 While Not objRS.EOF And Response.IsClientConnected strBgColor = "#ffffff" If intCurrent Mod 2 = 0 Then strBgColor = "#efefef" End If %> <tr bgColor="<%= strBgColor %>"> <td><%= objRS("Vorname") %></td> <td> </td> <td><%= objRS("Nachname") %></td> <td> </td> <td><%= objRS("Adresse") %></td> <td> </td> <td><%= objRS("Ort") %></td> <td> </td> <td><%= objRS("Geburtstag") %></td> <td> </td> <td><%= objRS("Telefon") %></td> <td> </td> </tr> <% intCurrent = intCurrent + 1 objRS.MoveNext Wend objRS.Close() objCon.Close() Set objRS = Nothing Set objCmd = Nothing Set objCon = Nothing %> </table> </body> </html> Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
bmg4ever Geschrieben 12. Januar 2005 Teilen Geschrieben 12. Januar 2005 also spontan würde ich sagen, dass die fehlermeldung bedeutet, dass du bei irgendeinem Funktionsaufruf einen Parameter vergessen hast. ich bin etwas stutzig bei dieser zeile: objRS.open strQuery, strConn, 3, 3 ist das so richtig? oder muss es nicht eher objRS.open(strQuery, strConn, 3, 3) lauten? Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
stud3 Geschrieben 12. Januar 2005 Autor Teilen Geschrieben 12. Januar 2005 die Zeile ist richtig, den Code habe ich von der Seite www.asphelper.de/Tip/Tip66.asp kopiert und in meinem Code eingebettet, da ist diese Zeile. Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.