Fant ingen poster
<%@Language="VBScript"%> <% Session.LCID=1033 Function fradatabase() Set connPubs = Server.CreateObject("ADODB.Connection") 'Under skal du skrive inn navnet på ODBC-koblinga' connPubs.Open "DSN=access;" 'Her skriver du spørringa di' SQLstr = "Select * from person" 'Utskrift i en tabell' Response.write"<table border='1' width='100 %' cellspacing='0' cellpadding='0'><tr><td>" Set rsLogo = connPubs.Execute(SQLstr) while not rsLogo.Eof Response.Write "<tr><td>" & rsLogo("fornavn") &"</td>" Response.Write "<td>" & rsLogo("etternavn") &"</td></tr>" Response.Write "<td>" & rsLogo("alder") &"</td></tr>" RsLogo.MoveNext Wend Response.Write "</table>" End function 'Vi kaller opp databasen vår på denne måten:' fradatabase() %>
Skrevet av Sindre Mathisen 2000
Spam vil bli anmeldt. Jeg vil se igjennom forslagene før de blir lagt ut.
©® Sindre Mathisen, SinSoft™ Designet for NS 6.0, IE 5, Opera 5.0 og nyere. Bokmerk denne siden.