Side vil ikke vises!
Hejsa! Har en hjemmeside som jeg har lagt op på nettet men den kan ikke vises!??Hvad er der fejl i koden?
Her er koden::
<%
Response.Buffer = True
mode = Request.QueryString("mode")
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
%>
<html>
<head>
<title>Velkommen til ...... (forfandenda)</title>
<LINK HREF="style.css" REL="stylesheet" TYPE="text/css">
</head>
<body><%
'Forskellig menu alt efter om man er logget ind eller ej
if session("brugernavn") <> "" then
%>
<table width="160" cellpadding="2" cellspacing="0">
<tr>
<td colspan="3"><b><% Response.Write "Dit brugernavn: " & Session("brugernavn")%></b></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td width="146"><a href="">Din Profil</a><br><a href="">Indbakke</a><br><a href="">Profil Oversigt</a><br><a href="">Skriv mail</a><br><a href="default.asp?mode=logud">Logud</a><br></td>
<td width="0" background="images/long_tern_lodret.gif" style="height:5px"></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
<% else %>
<%
'Hvis brugeren har submittet login formen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterner er udfydlt
if Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" then
Sql = "select * from bruger where brugernavn = '" & Request.Form("brugernavn") & "'"
Set rs = Conn.Execute(sql)
'Tjecker om brugeren eksisterer
if rs.EOF or rs.BOF then
Response.Write("<font color='red'><b>Brugernavnet eksisterer ikke</font></b><br>")
else
'tjecker om passwordsne matcher hinanden
if rs("brugerkode") = Request.Form("adgangskode") then
Session("brugernavn") = Rs("brugernavn")
Response.Redirect("default.asp")
else
Response.Write("<font color='red'><b>Adgangskoden er forkert<br></b></font>")
end if
end if
rs.Close
set rs = nothing
else
Response.Write("<font color='red'><b>Du har ikke udfyldt felterne</b></font>")
end if
end if
%>
<form method="post" action="default.asp?mode=login">
<table width="160" cellpadding="2" cellspacing="0">
<tr>
<td colspan="4"><b>Login (kun for admins)</b></td>
</tr>
<tr>
<td height="2" colspan="4" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" rowspan="3" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td width="54">User:</td>
<td width="99"><input name="brugernavn" type="text" class="input" id="username3" size="15"></td>
<td width="0" rowspan="3" background="images/long_tern_lodret.gif" style="height:5px"></td>
</tr>
<tr>
<td>Pass:</td>
<td><input name="adgangskode" type="password" class="input" size="15"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" class="input" value="Login"></td>
</tr>
<tr>
<td height="2" colspan="4" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
</form>
<% end if %>
<% if mode = "logud" then
Session.Abandon
Response.Redirect("default.asp")
end if %>
<br>
<table width="160" height="94" cellpadding="2" cellspacing="0">
<tr>
<td height="17" colspan="3"><b>Søgning</b></td>
</tr>
<tr>
<td height="29" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" rowspan="3" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td width="146" height="28"><form action="default.asp" method="post">
<input name="soeg" class="input" type="text" size="15">
<input type="submit" name="submit" class="input" value="Søg">
</form></td>
<td width="0" rowspan="3" background="images/long_tern_lodret.gif" style="height:5px" nowrap></td>
</tr>
<tr>
<td height="17">Resultater:<br><hr color="#000000"></td>
</tr>
<tr>
<td height="22">
<%
If Request.Form("soeg") <> "" then
Set DB = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("database.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
SQL = "select * from Bruger where brugeremail like '%" & Request.Form("soeg") & "%' or brugernavn like '%" & Request.Form("soeg") & "%'"
Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write "<table>"
Response.Write "<tr><td><font face=verdana size=1><b>Navn</b></font></td><td width=30></td><td><font face=verdana size=1><b>Email</b></font></td></tr>"
Do until rs.eof
brugeremail = rs("brugeremail")
Response.Write "<tr><td><font face=verdana size=1><a href='default.asp?mode=profil&id=" & rs("brugerid") & "'>" & rs("brugernavn") & "</a></font></td><td width=30></td><td><font face=verdana size=1>" & brugeremail & "</font></td></tr>"
rs.movenext
Loop
Response.Write "</table>"
Else
Response.Write "<b>Der var ingen poster der matchede på: " & Request("soeg") & "</b>"
End if
End if
%>
</td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
<br>
<%
'Forskellig menu alt efter om man er logget ind eller ej
if session("brugernavn") <> "" then
%>
<table width="160" cellpadding="2" cellspacing="0">
<tr>
<td colspan="3"><b>Din Profil</b></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" rowspan="2" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td><p>Her kan du ændre din profil så snart det bliver lavet :)</p>
</td>
<td width="0" rowspan="2" background="images/long_tern_lodret.gif" style="height:5px"></td>
</tr>
<tr>
<td>Copyright 2003 by wbm</td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
<% else %>
<table width="160" cellpadding="2" cellspacing="0">
<tr>
<td colspan="3"><b>Mobe.tk</b></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" rowspan="2" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td><p>Velkommen til mobe.tk! Vi er igang med at udvikle siden så det
varer lige et stykke tid før at mobe.tk er oppe at køre
normalt igen, men i mellem tiden kan i jo komme forbi en gang i mellem
for at se hvor langt vi er nået med siden! //mvh webmaster</p>
</td>
<td width="0" rowspan="2" background="images/long_tern_lodret.gif" style="height:5px"></td>
</tr>
<tr>
<td>Copyright 2003 by wbm</td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
<% end if %>
<br>
<table width="160" cellpadding="2" cellspacing="0">
<tr>
<td colspan="3"><b>Online på sitet:</b></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td width="149"><b><!-- #include file="inc_showonlineusers.asp" --></b></td>
<td width="0" background="images/long_tern_lodret.gif" style="height:5px"></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
<br>
<%
'Forskellig menu alt efter om man er logget ind eller ej
if session("brugernavn") <> "" then
%>
<table width="160" cellpadding="2" cellspacing="0">
<tr>
<td colspan="3"><b>Profil Info:</b></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td width="149"><b>Den profil du har søgt på findes ikke :(</b></td>
<td width="0" background="images/long_tern_lodret.gif" style="height:5px"></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
<% else %>
<% if mode = "opret" then
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
if (Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" AND Request.Form("email") <> "") then
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from bruger where brugernavn = '" & Request("brugernavn") & "'"
rs.Open strsql, conn, 1, 3
'Tjecker om brugernavnet er optaget
if rs.eof or rs.BOF then
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("brugernavn") = Server.HTMLEncode(Request("brugernavn"))
rs("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
rs("brugeremail") = Server.HTMLEncode(Request("email"))
rs("brugerinfo") = Server.HTMLEncode(Request("info"))
rs.update
Response.Redirect("default.asp?mode=login")
else
'Skriver at brugernavnet er optaget
Response.Write("<b><font color='red'>Brugernavnet er optaget</font></b><br>")
end if
rs.Close
set rs = nothing
else
Response.Write("<b><font color='red'>Du mangler at indtaste nogle dataer!</font></b><br>")
end if
end if
%>
<form method="post" action="default.asp?mode=opret">
<table width="160" cellpadding="2" cellspacing="0">
<tr>
<td colspan="3"><b>Opret Profil</b></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
<tr>
<td width="0" height="73" rowspan="5" background="images/long_tern_lodret.gif" style="height:5px"></td>
<td width="146"><b>Brugernavn:</b> <input type="text" class="input" name="brugernavn" value="<%=Request("brugernavn")%>"></td>
<td width="0" rowspan="5" background="images/long_tern_lodret.gif" style="height:5px"></td>
</tr>
<tr>
<td><b>Adgangskode:</b> <input type="password" class="input" name="adgangskode"></td>
</tr>
<tr>
<td><b>Email:</b> <input type="text" class="input" name="email" value="<%=Request("email")%>"></td>
</tr>
<tr>
<td>Info: <textarea cols="20" rows="6" class="input" name="info"><%=Request("info")%></textarea></td>
</tr>
<tr>
<td><input type="submit" value="Opret"></td>
</tr>
<tr>
<td height="2" colspan="3" background="images/long_tern.gif" style="height:5px"></td>
</tr>
</table>
</form>
<% end if %>
</body>
</html>
<%
'Lukker connection
conn.close
set conn = nothing
%>
//bartzzeh
