Håller på med en förbättring av mitt gamla script, UltiBook och testade med att enbart använda ett Connection-objekt och SQL.. :)
Har dock ett problem, hur ska man kunna loopa ut innehållet i databasen? :q
<% While Not objRs.EOF %>
<tr><td>
<b>Namn:</b> <%=objRs("Namn")%><br>
<b>E-mail:</b> <%=objRs("Email")%><br>
<b>Ev. hemsida:</b> <%=objRs("Url")%><p>
<b>Meddelande:</b><br><%=objRs("Meddelande")%>
<hr width="400" noshade>
</td></tr>
<% Wend %>
<% objRs.MoveNext %>
MoveNext fungerar uppenbarligen inte, så hur gör man?
(Så här har jag knåpat ihop SQL'n och databaskopplingen ;))
<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "dsn=mygb"
Sql = "SELECT * FROM tblGbk ORDER BY Id DESC"
Set objRs = objCon.Execute(SQL)
%>
------------------
Rökare är som vanliga människor, fast inte lika länge.