nogle sider virker lige pludseligt ikke mere!
Hej eksperter.Det lyder lidt underligt men nogle af mine sider er begyndt at give fejl når jeg åbner dem. Det har virket uden problemer indtil nu, men nu siger den "Der er opstod en HTTP 500 - Intern serverfejl"
Hvad kan det skyldes? Jeg har slet ikke ændret noget i koderne!?
Der er f.eks. fejl på denne side.
<%
set conn=server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/xxx.mdb")
if request.servervariables("REQUEST_METHOD") = "POST" then
'opdater
slet = Request.Form("slet")
if slet<>"" then
SQL = "DELETE FROM muzik WHERE ID IN(" & slet & ")"
End if
Conn.Execute(SQL)
Response.redirect(request.Servervariables("SCRIPT_NAME"))
end if
%>
<html>
<head>
<title>Slet</title>
<style type="text/css">
<!--
td {
font-family: verdana;
font-size: 9px;
}
-->
</style>
</head>
<body bgcolor="ffffff">
<%
sql = "select * from muzik where id>0"
set rs=Conn.Execute(SQL)
response.write "<table border=0>"
response.write "<form action=""" & request.ServerVariables("SCRIPT_NAME")&""" method=""post"">"
response.write "<tr><td><b>Slet</b></td><td><b>ID</b></td><td><b>Sarkici Ismi</b></td><td><b>Sarki Ismi</b></td><td>URL</td></tr>"
do while not rs.EOF
response.write "<tr>"
response.write "<td><input type=""checkbox"" name=""slet"" value=""" & rs("id") & """></td>"
response.write "<td>" & rs("id") & "</td>"
response.write "<td>" & rs("sarkici_ismi") & "</td>"
response.write "<td>" & rs("sarki_ismi") & "</td>"
response.write "<td>" & rs("url") & "</td>"
response.write "</tr>"
rs.Movenext
loop
%>
</table>
<input type="submit" name="aktiver" value=".::Uygula::.">
</form>
</body>
</html>
