<% set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") SQL = "Select * from viewpostkort where id=" & request("id") set rs = conn.execute( SQL ) if rs.eof Then %> Der er sket en fejl! <% else %>
<% end if rs.close set rs = nothing set SQL = nothing conn.close set conn = nothing %>


">
Kære <%=rs("modtager")%>

<% tekst = replace(rs("tekst"),vbcrlf,"
") %> <%=tekst%>

Dette Postkort er sendt til dig fra "><%=rs("afsender")%>