Et lille problem!
Hej eksperter!Jeg har et lille problem , koden ser fin ud men hver gang jeg vil se den skriver den at der er en syntaks fejl i else
koden er her:
<%
'Forskellig menu alt efter om man er logget ind eller ej
if session("brugernavn") <> "" then
%>
<%
Response.Buffer = True
valg = Request.QueryString("valg")
'Å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>Webmaster Forum ! On-Line Localhost!</title>
</head>
<body>
<table width="83%" border="0">
<tr>
<td width="30%" height="0" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% if mode = "profile" then
'Tjecker om brugeren er logget ind
if session("brugernavn") = "" then
Response.Redirect("default.asp")
end if
'Henter brugerens profil
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
rs.open sql, conn, 1, 3
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Opdaterer felterner
rs.update
rs("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
rs("name") = Server.HTMLEncode(Request("navn"))
rs("brugeremail") = Server.HTMLEncode(Request("email"))
rs("brugerinfo") = Server.HTMLEncode(Request("info"))
rs.update
end if
%>
<form method="post" action="default.asp?mode=profile">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr bordercolor="#000000">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Din
Profil</font></td>
</tr>
<tr>
<td width="28%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">User:</font></td>
<td width="72%"><input name="" type="text" value="<%=rs("brugernavn")%>" size="15" readonly="true"></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Pass:</font></td>
<td><input name="adgangskode" type="text" value="<%=rs("brugerKode")%>" size="15"></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Navn:</font></td>
<td><input name="navn" type="text" value="<%=rs("name")%>" size="15"></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></td>
<td><input name="email" type="text" value="<%=rs("brugeremail")%>" size="15"></td>
</tr>
<tr>
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Fritekst:</font></td>
</tr>
<tr>
<td colspan="2"><textarea name="info" cols="20" rows="3"><%=rs("brugerinfo")%></textarea></td>
</tr>
<tr>
<td height="26"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td><input name="submit" type="submit" value="Opdatér profil"></td>
</tr>
</table>
</form>
<%
rs.close
set rs = nothing
end if %>
<% end if %>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% if valg = "logud" then
Session.Abandon
Response.Redirect("default.asp")
end if %>
</font></td>
<td width="1%" bgcolor="#000000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td width="40%" valign="top">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td height="18" bordercolor="#FFFFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Velkommen
til forum news!</font></td>
</tr>
</table>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dette er en
simpel prøve for webmasteren for at han kan blive bedre til asp!
Denne side bliver måske til noget , det ved vi ikke helt endnu! //mvh
admin - casper </font> </td>
<td width="1%" bgcolor="#000000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td width="30%" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% if mode = "" then
%>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td colspan="2" bordercolor="#000000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dine
Funktioner: </font></td>
</tr>
<tr>
<td width="32%" valign="top" bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?valg=delete=profil?id&=22">Slet
Profil</a> </font></td>
<td width="68%" valign="top" bordercolor="#FF9900"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Hvis
du ikke vil have din profil mere kan du bare trykke på dette
link «</font></td>
</tr>
<tr>
<td bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?valg=seek">Søgning</a></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Her
kan du søge på andre brugere</font></td>
</tr>
<tr>
<td bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?valg=indbakke">Indbakke</a></font></td>
<td bordercolor="#FF9900"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Tjek
dine imails</font></td>
</tr>
<tr>
<td bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?valg=write_imail">Skriv
Imail</a> </font></td>
<td bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Her
kan du skrive en imail til en anden bruger</font></td>
</tr>
<tr>
<td bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?valg=profile">Din
profil</a> </font></td>
<td bordercolor="#FF9900"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Her
kan du ændre din profil</font></td>
</tr>
<tr>
<td bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?valg=indlag">Indlæg</a>
</font></td>
<td bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Skriv
et indlæg i et eller flere emner alt efter hvad der passer dig</font></td>
</tr>
<tr>
<td height="38" bordercolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<a href="default.asp?valg=logud">Log ud</a> </font></td>
<td bordercolor="#FF9900"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Her
logger du af når du er træt af at være på
vores side | tak for besøget!</font></td>
</tr>
</table>
<% end if %>
</font> </td>
</tr>
</table>
</body>
</html>
<% else %>
<%
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>[Du er ikke logget ind på ] Webmaster's Forum ! On-Line Localhost!</title>
</head>
<body>
<table width="62%" border="0">
<tr>
<td width="30%" height="0" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% if mode = "" then
'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'>Brugernavnet findes ikke</font>")
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'>Forkert password</font>")
end if
end if
rs.Close
set rs = nothing
else
Response.Write("<font color='red'>Du har ikke udfyldt felterne</font>")
end if
end if
%>
</font> <form method="post" action="default.asp">
<table width="160" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr bordercolor="#000000">
<td colspan="4"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Login</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="54"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">User:</font></td>
<td width="99"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="brugernavn" type="text" size="15">
</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Pass:</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="adgangskode" type="password" size="15">
</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td> </td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" value="Login">
</font></td>
</tr>
</table>
</form>
<% end if %>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
</font></td>
<td width="1%" bgcolor="#000000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td width="40%" valign="top">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td height="18" bordercolor="#FFFFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Velkommen
til forum news!</font></td>
</tr>
</table>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dette er en
simpel prøve for webmasteren for at han kan blive bedre til asp!
Denne side bliver måske til noget , det ved vi ikke helt endnu! //mvh
admin - casper </font> </td>
<td width="1%" bgcolor="#000000"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td width="30%" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% if mode = "" then
%>
<table width="75%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr bordercolor="#000000">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Opret
Profil</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td width="27%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">User:
</font></td>
<td width="73%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="username" type="text" size="15">
</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Pass:
</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="password" type="password" size="15">
</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Navn:
</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="navn" type="text" size="15">
</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Email:
</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="email" type="text" size="15">
</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Fritekst:</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<textarea name="textarea" cols="17" rows="3"></textarea>
</font></td>
</tr>
<tr bordercolor="#FFFFFF">
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="opret" type="submit" value="Opret Profil">
</font></td>
</tr>
</table>
<% end if %>
</font> </td>
</tr>
</table>
</body>
</html>
<% end if %>
