If RS.EOF then Response.write "Der var ingen artikler i databasen" Else Do While NOT RS.EOF %> <%=RS("Fornavn")%> af <%=RS("Adresse")%><br> <%=RS("Efternavn")%><hr> <% RS.MoveNext Loop %>
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mydb3.surf-town.net;DATABASE=xxxx;UID=xxxx_xxxx;PWD=xxxxxx;"
'SQL streng SQL = "SELECT Fornavn, Efternavn, Adresse FROM Brodre" Set RS = Conn.Execute(SQL)
If RS.EOF Then Response.Write "Der var ingen artikler i databasen" Else Do While NOT RS.EOF %> <%=RS("Fornavn")%> af <%=RS("Adresse")%><br> <%=RS("Efternavn")%><hr> <% RS.MoveNext Loop End If %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.