Test af asp - programmering
HejJeg har følgende asp-kode liggende på min hjemmeside. Jeg kan ikke rigtig finde ud af om der er noget galt med kodningen. Men faktum er at den asp-server som siden ligger på bliver ved med at gå ned (1-3 gange om måneden).
Er der nogen med forstand på asp som kan fortælle mig om min programmering er årsagen - eller om min programmering er ok?
databaseforbindelsen er markeret med xxxxxx med vilje!
På forhånd tak,
Henrik Harkamp
Her følger koden:
-----------------
<html>
<head>
<title>Københavns Ungdomsskole - Ungdomsskolecenter Amagers hold</title>
<link rel="stylesheet" type="text/css" href="../text.css">
<meta name="Microsoft Border" content="tlb">
</head>
<body leftmargin="0" topmargin="0">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
' Database-stien, servernavn, databasenavn og password
sti = "Driver={MySQL}; SERVER=xxxxxxxxxxx; DATABASE=xxxxxxxxxx; UID=xxxxxxxx; PWD=xxxxxxxx"
Conn.Open sti
%>
<div align="center">
<center>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="bottom">
<img border="0" src="images/hold_logo/2003/amager_2003.gif"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="98%" cellspacing="1">
<tr>
<td width=30%><a href="action.asp">
<img border="0" src="images/hold_logo/2001/action_logo_medium.gif" alt="Se alle hold i denne kategori"></a></td>
<td width=15%></td>
<td width=15%></td>
<td width=30%></td>
<td width=10%></td>
</tr>
<tr>
<td width=30% bgcolor="#CC9900"><font color="#FFFFFF"><b>Navn</b></font></td>
<td width=15% bgcolor="#CC9900"><font color="#FFFFFF"><b>Dag</b></font></td>
<td width=15% bgcolor="#CC9900"><font color="#FFFFFF"><b>Tid</b></font></td>
<td width=30% bgcolor="#CC9900"><font color="#FFFFFF"><b>Sted</b></font></td>
<td width=10% bgcolor="#CC9900"><font color="#FFFFFF"><b>Holdnr.</b></font></td>
</tr>
</table>
</center>
</div>
<%
' SQL forespørgsel
strSQL = "SELECT * FROM holdoversigt WHERE center='amager' AND kategori='action' AND vises='ja' ORDER BY 'navn'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Tjekker om der overhoved er noget i databasen som svarer til SQL forespørgslen
if rs.eof then
' Hvis der ikke er noget skriver den følgende
%>
<div align="center">
<center>
<table border="0" width="98%" cellspacing="1">
<tr>
<td width=30% bgcolor="#C0C0C0"><%Response.write "Ingen hold i denne kategori"%></td>
<td width=15% bgcolor="#C0C0C0"></td>
<td width=15% bgcolor="#C0C0C0"></td>
<td width=30% bgcolor="#C0C0C0"></td>
<td width=10% bgcolor="#C0C0C0"></td>
</tr>
</table>
</center>
</div>
<%
end if
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.eof
' Personens navn
strNavn = rs("navn")
' lav et link til person.asp med Id-værdien i URL
strLink = "<a href='holdbeskrivelse.asp?id=" & rs("id") & "'>" & strNavn & "</a>"
' Udskriv værdien af kolonnen navn, dag, tid, sted og holdnummer(nummer)
Response.Write
%>
<div align="center">
<center>
<table border="0" width="98%" cellspacing="1">
<tr>
<td width=30% bgcolor="#C0C0C0"><% Response.Write strLink%></td>
<td width=15% bgcolor="#C0C0C0"><%=rs("dag")%></td>
<td width=15% bgcolor="#C0C0C0"><%=rs("tid")%></td>
<td width=30% bgcolor="#C0C0C0"><%=rs("sted")%></td>
<td width=10% bgcolor="#C0C0C0"><%=rs("nummer")%></td>
</tr>
</table>
</center>
</div>
<%
' Gå til næste Record i rs
rs.MoveNext
Loop
%>
<%
' Luk databaseforbindelse og sæt forbindelsen til ingenting
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
