<% If Request.Querystring("id") <> "" Then Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") MinCon.Open "Driver={Mysql};Server=innodb.levonline.com;Database=c0050100_innodb1;UID=c0050101;PWD=79j8T3sn" SQL = "SELECT * From nyheter Where id=" & Request.Querystring("id") rs.Open SQL, MinCon Do While Not rs.EOF %> <%=rs("rubrik")%>
Skrivet av: <%=rs("namn")%> | <%=rs("datum")%>

<%=Replace (rs("nyhet"),vbCrLf,"
")%> <% Rs.MoveNext Loop End If%>

<< Tillbaka