bestemt udtræk

<%   
                                    Set Conn3 = Server.CreateObject("ADODB.Connection")
                                    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
                                    DSN = DSN & "DBQ=" & Server.MapPath("db/jittytre.mdb")
                                    Conn3.Open DSN
                                   
                                    intPage = Request("page")
                                    If isNumeric(intPage) = False Or intPage < 1 Then
                                        intPage = 1
                                    End If
                                    %>
                                    <font size="2" face="Tahoma">Side <b><%Response.Write "" & intPage & ""%></b><br><br>
                                </td>
                            </tr>
                            </table>
                        </td>
                        <td valign="top">
                        <p align="justify"><b><font face="Tahoma">POLETTER <%=request.querystring("alfa")%></font></b><font face="Tahoma"><b>
                        &nbsp;</b></font></p>
                               
                               
                                <%if Request.QueryString("poletter") = "" then%>

                                <%
                                    Set Rs = Server.CreateObject("ADODB.Connection")
                                    DBPath = "DBQ=" & server.mappath("db/jittytre.mdb")
                                    Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
                                    Sql = "Select count(*) as Found from tabel"
                                    Set Record =  Rs.Execute(Sql)
                                   
                                    Ialt = Record("found")
                                %>
                                <%    Set Conn3 = Server.CreateObject("ADODB.Connection")
                                    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
                                    DSN = DSN & "DBQ=" & Server.MapPath("db/jittytre.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 tabel ORDER BY forside ASC"
                                    record.Open Sql3,Conn3,1 %>
                                    <%
                               
                                    str_alfa = LCase(Request.QueryString.Item("alfa")) & UCase(Request.QueryString.Item("alfa"))
                                   
                                    str_sql2 = "SELECT * FROM tabel"
                                    If Len(str_alfa) < 1 Then
                                    str_alfa = "0123456789ABCDEFGHIJKLMNOPQRSTUVWYZÆØÅabcdefghijklmnopqstuuvwxyzæøå"
                                    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 & " forside LIKE '" &  Mid(str_alfa,i,1) & "%'"
                                    next
                                %>

SELECT * FROM tabel WHERE tilbud = '2'

jeg kan ikke få det til at vise dem ved det?

Hvad er egentlig sammenhængen mellem dit spørgsmål og den blok kode du har postet i 06/10-2006 16:35:42?


PS: I øvrigt må du altså meget gerne følge op på nogle af de spørgsmål du har åbent:

http://www.eksperten.dk/list.phtml?sort=&order=DESC&status_1=on&status_2=on&spm_creator=bellinizone&spm_part=&spm_answer=&find=&engine=exp

Det skulle jo gerne være sådan at folk fortsat har lyst til at hjælpe dig. :^)

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from Tabel WHERE Tilbud = '2'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("Tilbud") & "<br>"

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Hvad med noget respons?

hejsa, smider du et svar?

Jeg går ud fra at det er visual-basic-starter som skal smide et svar. Mit eget bidrag her er vist ret begrænset. :^)

luk

Øv! Fik ikke point:(

Du har ellers haft tid nok til at smide et svar.

Jajaja, ikke så kæphøj:D Men gør intet

Heh :^)