fejl til database

<%if Request.QueryString("level") = "" then%>
<table width="550" border="0" cellspacing="2" cellpadding="2" id="table1">
<tr><td>forside</td></tr></table>
<%end if%>                               
           
<%if Request.QueryString("level") = "katalog" then%>
      <table width="550" border="0" cellspacing="2" cellpadding="2" id="table1">
        <tr>
          <td width="75%" valign="top" align="left" height="153">
            <div align="center">
                <font face="Tahoma" size="1">
                <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=QAZWSXEDCRFVTGBYHNUJMIKOLP%C6%C5%D81234567890">All</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=A" class="alfa">A</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=B" class="alfa">B</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=C" class="alfa">C</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=D" class="alfa">D</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=E" class="alfa">E</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=F" class="alfa">F</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=G" class="alfa">G</a>&nbsp;</span>|<span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=H">H</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=I" class="alfa">I</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=J" class="alfa">J</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=K" class="alfa">K</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=L" class="alfa">L</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=M" class="alfa">M</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=N" class="alfa">N</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=O" class="alfa">O</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=P" class="alfa">P</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=Q" class="alfa">Q</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=R" class="alfa">R</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=S" class="alfa">S</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=T" class="alfa">T</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=U" class="alfa">U</a>&nbsp;</span>|<span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=V" class="alfa">V</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=W" class="alfa">W</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=X" class="alfa">X</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=Y" class="alfa">Y</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=Z" class="alfa">Z</a>&nbsp;</span>| <span class="skrift1">
                <a href="default.asp?level=katalog&show=&alfa=%E6%E5%F81234567890">Other</a>
                </span></font>
            </div><%if Request.QueryString("show") = "" then%>
            <div align="center">
                <%    Set Conn3 = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("db1.mdb")
    Conn3.Open DSN
   
    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
        intPage = 1
    End If
   
    Set record = Server.CreateObject("ADODB.RecordSet")
    Sql3 = "SELECT * FROM poletter ORDER BY poletnavn ASC"
    record.Open Sql3,Conn3,1 %><%
str_alfa = LCase(Request.QueryString.Item("alfa")) & UCase(Request.QueryString.Item("alfa"))
str_sql2 = "SELECT * FROM poletter"
If Len(str_alfa) < 1 Then
str_alfa = "ABCDabcd"
End if
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & " OR"
    End If
    str_sql2 = str_sql2 & " poletnavn LIKE '" &  Mid(str_alfa,i,1) & "%'"
next

str_sql2 = str_sql2 & ") ORDER BY poletnavn"

Set Conn = Server.CreateObject("ADODB.Connection")
Set record = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db1.mdb")
record.Open str_sql2, Conn, 1
%>
              <%
if record.EOF then
%>            <br><span class="skrift">Ingen poletter Her.</span>
              <%
else
%>   
&nbsp;

<%                               

    If Not (record.BOF Or record.EOF) Then
    record.PageSize = 10
    record.AbsolutePage = intPage
    intRecCount = record.PageSize
    intPageCount = record.PageCount

    Do While Not record.EOF And intRecCount > 0

%>
<table border="0" width="500" height="100" id="table1" cellspacing="0" cellpadding="0" background="images/bg-list.jpg">
    <tr>
        <td background="images/bg-list.jpg" width="136" height="100"><b>
        <img src="http://www.poletter.dk/polet/DSC09929.jpg" border="0" width="136" height="100"></b></td>
        <td>
        <div align="right">
            <table border="0" width="98%" height="100%" id="table2" cellspacing="0" cellpadding="0">
                <tr>
                    <td width="100"><b>
                    <font size="2" face="Tahoma" color="#FFFFFF">Polet</font></b></td>
                    <td><font color="#FFFFFF" size="2"><%= record("poletnavn") %></font></td>
                </tr>
                <tr>
                    <td width="100"><b>
                    <font size="2" face="Tahoma" color="#FFFFFF">Katalog-pris</font></b></td>
                    <td><font color="#FFFFFF" size="2"><% = record("pris") %> kr.</font></td>
                </tr>
                <tr>
                    <td width="100"><b>
                    <font size="2" face="Tahoma" color="#FFFFFF">Hits</font></b></td>
                    <td><font color="#FFFFFF" size="2"><% = record("hits") %></font></td>
                </tr>
                <tr>
                    <td width="100">&nbsp;</td>
                    <td valign="bottom">
                    <p align="center">
                    <a href="default.asp?level=katalog&show=yes&id=<%= record("id") %>">
                    <font color="#FFFFFF">
                    <img height="17" alt="4 The Girls" src="images/more_info_home_male.gif" width="112" border="0" align="right" hspace="1" vspace="1"></font></a></td>
                </tr>
            </table>
        </div>
        </td>
    </tr>
</table>

<br><%
        Record.MoveNext
        intRecCount = intRecCount - 1
    Loop
end if
%>                                        <table><tr>
                                            <td height="30" colspan="3" valign="top">
                                        <%
                                        Response.Write "<table width=""500""><tr>"
                                        Response.Write "<td align=""center""><font face='Tahoma' size='2'>Du er på side <b>" & intPage & "</b><center>"
                                       
                                        If Clng(intPage) > 1 Then
                                            Response.Write "<a href=default.asp?level=katalog&show=&alfa=" & Request.QueryString.Item("alfa")& "&site=&page=" & intPage - 1 & ">&lt;&lt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                               
                                        Response.Write "&nbsp;"
                                       
                                        For intNum = 1 To intPageCount
                                            Response.Write "<a href=default.asp?level=katalog&show=&alfa=" & Request.QueryString.Item("alfa")& "&site=&page=" & intNum & "><b>" & intNum & "</b></a> "
                                        Next
                                        Response.Write "&nbsp;"

                                        If Clng(intPage) < Clng(intPageCount) Then
                                            Response.Write "<a href=default.asp?level=katalog&show=&alfa=" & Request.QueryString.Item("alfa")& "&site=&page=" & intPage + 1 & ">&gt;&gt;</a>"
                                        Else
                                            Response.Write "&nbsp;"
                                        End If
                                        Response.Write "</center></font></td></tr></table>"
                                        %>
                                        </td>
                                        </tr>
                                        </table>
            </div>
            <% end if %>

Prøv evt. at udskrive str_sql2 Så vidt jeg kan se manger du at få en WHERE ind.


str_sql2 = "SELECT * FROM poletter"
If Len(str_alfa) < 1 Then
str_alfa = "ABCDabcd"
End if
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & " OR"
    End If
    str_sql2 = str_sql2 & " poletnavn LIKE '" &  Mid(str_alfa,i,1) & "%'"
next

str_sql2 = str_sql2 & ") ORDER BY poletnavn"


'Udskriv
Response.write str_sql2
Response.end 'Stopper koden her

skal jeg bare sætte koden ind?

Fejlen betyder at der er en fejl i enten connection eller SQL sætninge i den linie hvor fejlen er jeg antager der er denne linie:

record.Open str_sql2, Conn, 1

Nej prøv at sætte disse to linier:


'Udskriv
Response.write str_sql2
Response.end 'Stopper koden her




Efter du har bygget str_sql2 færdig så de to skal ind som vist.

http://www.markmadsen.dk/poletkatalog/default.asp?level=katalog&show=&alfa=QAZWSXEDCRFVTGBYHNUJMIKOLP%C6%C5%D81234567890

jeg tror ikke jeg forstod det.

Ok, det er ofte lettere at se fejlen når man udskriver SQL sætningen og i det første:
SELECT * FROM poletter poletnavn LIKE 'q%

Så er manger et WHERE efetr poletter og så et (.

Du kan også prøve at rette disse linier:


str_sql2 = "SELECT * FROM poletter"
If Len(str_alfa) < 1 Then
str_alfa = "ABCDabcd"
End if
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & " OR"
    End If
    str_sql2 = str_sql2 & " poletnavn LIKE '" &  Mid(str_alfa,i,1) & "%'"
next

str_sql2 = str_sql2 & ") ORDER BY poletnavn"



Til dette:


str_sql2 = "SELECT * FROM poletter"
If Len(str_alfa) < 1 Then
str_alfa = "ABCDabcd"
End if
  str_sql2 = str_sql2 & " WHERE ("
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & " OR"
    End If
    str_sql2 = str_sql2 & " poletnavn LIKE '" &  Mid(str_alfa,i,1) & "%'"
next

str_sql2 = str_sql2 & ") ORDER BY poletnavn"




og så fjerne de to linier som du har sat ind.

hmm... smart trick...

Jeg ligger lige et svar :)