<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
count = 0
strSQL = "SELECT * FROM blogs ORDER BY ID DESC"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While ((Not rs.EOF) And count <3)
strSQL = "SELECT *, DATE_FORMAT(date,'%d-%m-%Y') AS FormDate, TIME_FORMAT(date,'%H:%i') AS FormTime FROM blogs WHERE (id =" & rs("id") & ")"
Set formatDate = myConn.Execute(strSQL)
dtmFormatDate = formatDate("FormDate")
var = rs("bruger")
strSQL2 = "SELECT username FROM spobruger WHERE brugerID =" & var
set rs2 = myConn.Execute(strSQL2)
strname = rs2("username")
strSQL = "SELECT Count(*) AS ItemCount FROM blogs Where (id = " & rs("id") & ")"
Set recordCount = myConn.Execute(strSQL)
strHTMLb = strHTMLb & " (" & dtmFormatDate & ")
"& strname & " - " & rs("emne") & "
" & rs("comment") & "
"
count = count + 1
rs.MoveNext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
'strSQL = "SELECT * FROM andmeld ORDER BY ID DESC"
'Set rs = myConn.Execute(strSQL)
'If Not (rs.BOF Or rs.EOF) Then
' Do While Not rs.EOF
' strSQL = "SELECT *, Format$([date],'dd/mm/yyyy') AS FormDate, Format$([date],'hh:mm') AS FormTime FROM andmeld WHERE (id =" & rs("id") & ")"
' Set formatDate = myConn.Execute(strSQL)
' dtmFormatDate = formatDate("FormDate")
' strSQL = "SELECT Count(*) AS ItemCount FROM andmeld Where (id = " & rs("id") & ")"
' Set recordCount = myConn.Execute(strSQL)
' strHTML = strHTML & "| [" & dtmFormatDate & "] | " & rs("titel") & " (" & rs("person") & ") |
 | " & rs("indledning") & " |
"
' rs.MoveNext
' Loop
'End If
'myConn.Close
Set myConn = Nothing
%>
StolPaaOs.dk | Start
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;"
strSQL = "SELECT bagpic, startsidesettings FROM spobruger"&_
" WHERE (username = '" & Session("NAME") & "')"
Set rs = myConn.Execute(strSQL)
If isEmpty(Session("ID")) Then
Response.write ""
strStartSet = ""
Else
strBagPic = rs("bagpic")
If rs("startsidesettings")="" Then
strStartSet = "
Startside guiden"
Else
strStartSet = rs("startsidesettings")
End IF
Response.write ""
END IF
myConn.Close
Set myConn = Nothing
%>
Blogs |
skriv
<%=strHTMLb%>
|
<%=strStartSet%>
|
<%
If isEmpty(Session("ID")) Then
%><%
Else
%><%
END IF
%> |