Hvordan finder gæstebogens database?
Hejsa.....er total grøn i databaser og har et lille problemHar en hjemmeside for bandet - som et tidligere medlem lavede.
Vores gæstebog bliver fyld med alt muligt crap som jeg gerne vil slette. I den asp fil der hedder tagwall står følgende.....
Jeg kan redigere osv på alle mulige andre ting.....men hvordan får jeg adgang til databasen feks vha et hjælpeprogram og hvor ligger databasen?? Er det på vores udbyders server eller??
Ja jeg aner ikke en brik om det...så et svar på "børnehaveniveau" ville være ønskeligt..
Pft
<html>
<head>
<!-- TemplateBeginEditable name="doctitle" -->
<title><%=SetTitle%></title>
<!-- TemplateEndEditable --> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#000000" bgproperties="fixed" WIDTH=517 HEIGHT=242 leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><font face="Ellianarelle's Path" size="5">
<%
Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("database.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select count(*) as Found from tagwall"
Set Record = Rs.Execute(Sql)
Ialt = Record("found")
%>
<!-- TemplateBeginEditable name="head" --><!-- TemplateEndEditable -->
</head>
<table border="0" width="100%" height="15" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><b>Tagwall</b></td>
</tr>
</table>
<p> <a href="tagwall_write.asp">Post a message<br>
<br>
</a> There is a total of<b>
<% =ialt %>
messages</b> in the tagwall
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
' Åbner databasen
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM tagwall order by Id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
' udskriver maks 5 eksepler pr side.
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b><span class='skrift'>Side " & intPage & " af " & intPageCount & "</span></b></p>"
Do While Not rs.EOF And intRecCount > 0 %>
<br>
</font></p>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="1">
<tr>
<td width="91%" height="1">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr height="2">
<td colspan="2" height="2"><span > Subject:</span><b><span > <%= rs("overskrift") %></span>
</b><span >by: <b><%= rs("navn") %></b></span></span></font></td>
<td width="37%" height="2"><span > <b> </b> d.</span></span><span >
<span > <%= rs("dato") %></span></span></font></td>
</tr>
<tr height="2">
<td width="1%" height="2"></td>
<td colspan="0" height="2"><%= rs("besked") %></td>
</tr>
</table>
</td>
</tr>
</table>
<p><%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
%><%
' går til næste 5 eksepler, hvis der er flere
Response.Write "<p><span class='skrift1'>Gå til side </span>"
For intNum = 1 To intPageCount
Response.Write "<a href=tagwall.asp?page=" & intNum & "><span class='skrift'>" & intNum & "</span></a> "
Next
%></font></p>
</body>
</html>
