Nu tager jeg lige hele body-delen, og håber på, at der er nogen, der vil indsætte paging-delen for mig:
<body>
<%
Password = "DitPass"
'STYLE
Width = "100%"
Color = "#ffffff"
Border_color = "#000000"
Background_color = "#788593"
Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/tagwalldb.mdb")
Conn.open DSN
Response.write "<div class='Header'>"
Response.write "</div>"
If request.querystring("Exe") = "AddTag" then
Response.write "<form method='post' action='default.asp?Exe=AddTagNow'>"
Response.write "<div style='font-size:10px;'>Navn</div>"
Response.write "<input type='text' name='Navn' class='textfelt'><br>"
Response.write "<div style='font-size:10px;'>Email</div>"
Response.write "<input type='text' name='Post' class='textfelt'><br>"
Response.write "<div style='font-size:10px;'>Website</div>"
Response.write "<input type='text' name='Hjemmeside' class='textfelt'><br>"
Response.write "<div style='font-size:10px;'>Besked</div>"
Response.write "<textarea name='Besked'></textarea><br>"
Response.write "<input type='submit' value='Tag!'>"
Response.write "</form>"
Elseif request.querystring("Exe") = "AddTagNow" then
If Month(now) = 1 then
Maaned = "Januar"
elseIf Month(now) = 2 then
Maaned = "Februar"
elseIf Month(now) = 3 then
Maaned = "Marts"
elseIf Month(now) = 4 then
Maaned = "April"
elseIf Month(now) = 5 then
Maaned = "Maj"
elseIf Month(now) = 6 then
Maaned = "Juni"
elseIf Month(now) = 7 then
Maaned = "Juli"
elseIf Month(now) = 8 then
Maaned = "August"
elseIf Month(now) = 9 then
Maaned = "September"
elseIf Month(now) = 10 then
Maaned = "Oktober"
elseIf Month(now) = 11 then
Maaned = "November"
elseIf Month(now) = 12 then
Maaned = "December"
End if
strSQL = "Insert into Tagwall ("
strSQL = strSQL & "Navn, "
strSQL = strSQL & "Dato, "
strSQL = strSQL & "Post, "
strSQL = strSQL & "Hjemmeside, "
strSQL = strSQL & "Besked) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & request.form("Navn") & "', "
strSQL = strSQL & "'" & Day(now) & ". " & Maaned & " " & Year(now) & "', "
strSQL = strSQL & "'" & request.form("Post") & "', "
strSQL = strSQL & "'" & request.form("Hjemmeside") & "', "
strSQL = strSQL & "'" & request.form("Besked") & "')"
Conn.Execute(strSQL)
Response.redirect "default.asp"
Else
Response.write "<center><a href='?site=Tagwall&Exe=AddTag'>Drop en besked !!!</a></center>"
Response.write "<br><br>"
strSQL = "Select * from Tagwall order by Id desc"
Set rs = Conn.Execute(strSQL)
If NOT rs.EOF then
Do
Response.write "<table cellspacing='0' style='width:" & Width & "; border:1px; border-style:solid; border-color:" & Border_color & ";'>"
Response.write "<tr>"
Response.write "<td style='background-color:" & Background_color & ";'>"
Hjemmeside = ""
Hjemmeside = rs("Hjemmeside")
If Hjemmeside <> "" then
Hjemmesiden = "<a href='
http://" & Hjemmeside & "'>" & Hjemmeside & "</a>"
Else
Hjemmesiden = "<a href='../'>Zjinn.dk</a>"
End if
Post = rs("Post")
If Post <> "" then
Posten = "<a href='mailto: " & Post & "'>"
End if
Response.write "<span style='color:" & Color & ";'><b>" & Posten & "" & rs("Navn") & "</a></b> | " & Hjemmesiden & " | " & rs("Dato") & "</span>"
Response.write "</td>"
Response.write "<td style='background-color:" & Background_color & ";'>"
Response.write "<span style='text-align:right; color:" & Color & ";'>" & rs("Id") & "</span>"
Response.write "</td>"
Response.write "<tr width='1px'>"
If rs("Slettet") = "Slettet" then
Response.write "<td colspan='2'>"
Response.write "<i>Slettet af admin</i>"
Response.write "</td>"
Else
Response.write "<td colspan='2'>"
Response.write rs("Besked")
Response.write "</td>"
End if
Response.write "</tr>"
Response.write "</table><br>"
rs.MoveNext
Loop while NOT rs.EOF
End if
End if
%>
</body>
Ny bruger
Nybegynder
Opret
Preview
