crisse6Medlem sedan dec. 20002 526 inläggGjorde sa ocksa och har hittat vilken fil som staller till det, inc_Buddies.asp!!! Den ser ut sa har:
<%
If NOT request.querystring("do") = "" and NOT request.querystring("who") = "" then
strGetAllCats = "Select * From t_FriendsCat"
strCheckFriend = "Select * From t_Friends Where Friend = '" & request.querystring("who")
set objCat = objConn.execute(strGetAllCats)
set objCheck = objConn.execute(strCheckFriend)
If NOT objCheck.EOF then
%>
Du och <%=request.querystring("who")%> har redan en relation.<br>
Om du vill ändra/tabort relationen, gör det under "Möblera om rummet".
<% Else %>
<font class="regularTextBlack">
Det var fan på tiden <%=session("name")%> att du letar polare,<br>
ni bor ju ändå under samma tak.
<br><br>
<b>Steg 1 av 2</b><br><br>
<form name="makeFriend1" method="post" action="makeFriendStep2.asp">
Du vill skapa en relation med
<select name="FriendName">
<option value="<%=request.querystring("who")%>"><%=request.querystring("who")%></option>
</select>
<br>
stämmer det? Klicka då på "Gå vidare".
<input type="hidden" value="<%=session("sessionID")%>" name="owner">
<input type="hidden" value="<%=session("usrname")%>" name="ownerUsrName">
<br><br>
<input type="submit" value="Gå vidare">
</form>
</font>
<% End IF
Else
strShowAllFriends = "SELECT t_FriendsCat.*, t_Friends.* FROM t_Friends INNER JOIN t_FriendsCat ON t_Friends.CategoryID = t_FriendsCat.CategoryID WHERE t_Friends.userID = " & Session("sessionid") &""
set objShow = objConn.execute(strShowAllFriends)
If objShow.EOF then
%>
<table width="100%"><tr>
<td bgcolor="#F3F4EB">
<font class="regularTextBlack">
<br><br><center>Du har inga relationer ännu.<br>Du kan alltid
<a href="default.asp?menuID=7&usrID=<%=session("sessionID")%>&do=search">söka</a> på inneboende.</center></font><br><br>
</td></tr></table>
<% Else %>
<font class="regularTextBlack">
Här listas de inneboende som du, <%=session("name")%> har en relation med.</font>
<br><br>
<%
Do Until objShow.EOF
If objShow("Category") <> ref then
response.write "<table width=""100%"" cellspacing=""0""><tr><td bgcolor=""#D4D8B1"">"&_
"<font class=""regularTextBlack""><b>"&objShow("Category")&"</b></font>"&_
"</td></tr></table>"
End IF
%>
<table width="100%">
<%
response.write "<tr><td bgcolor=""#F3F4EB"" align=""center""><font class=""regularTextBlack"">"&_
"<a href=""default.asp?menuID=1&usrID="&objShow("FriendUserID")&"&who="&objShow("Friend")&""">"& objShow("Friend") &"</a></font></td>"
response.write "<td bgcolor=""#F3F4EB"" align=""center""><font class=""regularTextBlack"">"&_
"<a href=""default.asp?usrID="&objShow("FriendUserID")&"&menuID=2&who="&objShow("Friend")&""">Visa "& objShow("Friend") &"'s notiser</a></font></td>"&_
"<td bgcolor=""#F3F4EB"" align=""center""><font class=""regularTextBlack""><a href=""inc_Mail.asp?do=sendNew&to="&objShow("Friend")&""">Skicka brev till "& objShow("Friend")&"</a></font></td>"&_
"<td bgcolor=""#F3F4EB"" align=""center""><font class=""regularTextBlack""><a href=""Edit_FriendShip.asp?who="&objShow("Friend")&""">Ändra</a></td>"
ref = objShow("Category")
objShow.movenext
Loop
%>
</tr></table>
<br><br>
<% End IF %>
lang :)
SsolbulleMedlem sedan mars 20015 287 inlägg Tycker det ser ut som om en "End If" saknas, längst ner?
crisse6Medlem sedan dec. 20002 526 inlägg Jo, nu fick vi den att funka :) Nu over till inc_SearchMembers.asp dar en "End" forvantas... pa Else satsen nastan langst ner pa sidan... men tycker det ar nog med "End" :e
<!--#include file="db_connection.asp" -->
<%
If request.querystring("do") = "listall" then
Set objPagingRS = Server.CreateObject("Adodb.Recordset")
strListAllMembers = "Select * from t_users"
'### Paging starts here ###
IntPageId = request.querystring("pageid")
if intPageId = "" then intPageId = 1
With objPagingRS
.cursorlocation = 3
.open strListAllMembers, objConn
End With
If objPagingRS.eof then
response.write "<table width=""100%""><tr><td bgcolor=""#F3F4EB"">"&_
"<br><br><center><font class=""regularTextBlack"">"&_
"Inga medlemmar att visa.<br>"&_
"Tipsa gärna polare om denna sida.</font></center>"&_
"<br><br></td></tr></table>"
Else
%>
<font class="regularTextBlack">
Här listas det medlemmar som finns på hepster.<br>
Du kan skicka post, bli polare, kolla personens notiser eller bara kolla
personens rum.
<br><br>
<%
With objPagingRS
.pagesize = 10
.absolutepage = intPageId
end with
intPages = cint(objPagingRS.pagecount)
intCurrentPost = 0
function MakeLineBreak(str)
MakeLineBreak = Replace(str, vbCrLf, "<br>" & vbCrLf)
end function
Do While Not objPagingRS.EOF AND intCurrentPost < objPagingRS.pagesize
strContents = strContents &_
"<table width=""100%"" class="".tableBar""><tr>" &_
"<td><font class=""regularTextBlack""><a href=""inc_ShowUsrPresentation.asp?who="&objPagingRS("usrName")&""">"& objPagingRS("usrName") &"</font></td>" &_
"<td><font class=""regularTextBlack""><a href=""default.asp?menuID=2&who="&objPagingRS("usrName")&""">"& objPagingRS("usrName") &"'s notiser</font></td>" &_
"<td><font class=""regularTextBlack""><a href=""inc_NewPostMess.asp?to="&objPagingRS("usrName")&""">Skicka brev till "& objPagingRS("usrName") &"</font></td></tr></table>"
intCurrentPost = intCurrentPost +1
objPagingRS.movenext
loop
function getPreviousLink(intPageId)
if intPageId > 1 then
getPreviousLink = "<a href=""default.asp?pageid="& intPageId -1 & "&usrID="&session("sessionID")&"&menuID=6""><font class=""regularTextBlack""><< Föregående </a></font>"
end if
end function
function getNextLink(intPageId, intPageCount)
if cint(intPageId) < cint(intPageCount) then
getNextLink = "<a href=""default.asp?pageid="& intPageId +1 &"&usrID="&session("sessionID")&"&menuID=6""><font class=""regularTextBlack"">Nästa >></a></font>"
end if
end function
strNavigation = getPreviousLink( intPageId ) & " "
for i = 1 to objPagingRS.pagecount
strNavigation = strNavigation & " <a href=""default.asp?pageid="& i &"&usrID="&session("sessionID")&"&menuID=6""><font class=""regularTextBlack"">"& i &"</a></font>"
next
strNavigation = strNavigation & " " & getNextLink( intPageId, intPages ) & " "
response.write "<font face=""Verdana"" size=""1"">"& strContents &"</font>"
response.write "<br><font face=""Verdana"" size=""1"">"& strNavigation &"</font>"
objPagingRS.close
set objPagingRS = nothing
Else
response.write "Formular"
End IF
%>
SsolbulleMedlem sedan mars 20015 287 inlägg Det är ju samma fel där va? Fattar inte hur du kan göra såna missar ;)
Det är ju bara att räkna varje IF och se till att du har lika många END IF!?!
:)
crisse6Medlem sedan dec. 20002 526 inlägg Jaja, nu funkar det ditt smartass :p :e
SsolbulleMedlem sedan mars 20015 287 inlägg He he :e
Nej ni gubbar, nu ska jag knalla tillbaks till sängen, slocknade vid nio-snåret o vaknade bara till, kände att man var tvungen att hälsa på lite. ;)
crisse6Medlem sedan dec. 20002 526 inlägg Ha, sant sant.... Jag sjalv ska sitta uppe ett antal timmar till, nattvakt som man ar pa wF :)
crisse6Medlem sedan dec. 20002 526 inlägg Mycket if satser idag :)
Men iaf, far inte ordning pa det nu heller.. med en annan sak alltsa....
Vill ha Else dar om inte request.querystring("choice") har nat varde, men da vill den ha END IF forsokt men det fortsatter ju!!
Vill alltsa att om det finns varde i choice sa ska formular eller lank visas beroende pa dess varde.....
<%
If request.querystring("do") = "MakeNewFriend" and NOT request.querystring("who") = "" then
strGetAllCats = "Select * From t_FriendsCat"
strCheckFriend = "Select * From t_Friends Where Friend = '" & request.querystring("who") &"'"
set objCat = objConn.execute(strGetAllCats)
set objCheck = objConn.execute(strCheckFriend)
If request.querystring("choice") = "edit" then
%>
<font class="regularTextBlack">
Du har valt att ändra din relation med <%=request.querystring("who")%>,<br>
varför vet vi inte.<br><br>
Välj relation<br>
<form name="editFriend" method="post" action="EditFriend2.asp">
<select name="NewRelation">
<%
Do Until objCat.EOF
response.write "<option value="""&objCat("CategoryID")&""">"&objCat("Category")&"</option>"
objCat.Movenext
Loop
%>
</select>
<br>
<input type="submit" value="Ändra relation">
<input type="hidden" value="<%=request.querystring("who")%>" name="Friend">
</form>
<% ElseIF request.queystring("choice") = "Del" then
response.write "<table width=""100%"" bgcolor=""#F3F4EB""><tr><td><font class=""regularTextBlack"">"&_
request.querystring("who")&"</font></td><td><font class=""regularTextBlack"">"&_
"<a href=""EditFriend2.asp?Picked=Del"">Ta bort</a></font></td></tr></table>"
Else
If NOT objCheck.EOF then
%>
<font class="regularTextBlack">Du och <%=request.querystring("who")%> har redan en relation.<br>
Om du vill ändra/tabort relationen, gör det under "<a href="default.asp?menuID=5&usrID=<%=session("sessionID")%>">Polare</a>", eller "<a href="default.asp?menuID=1&usrID=<%=session("sessionID")%>">Möblera om rummet</a>".</font>
<% Else %>
<font class="regularTextBlack">
Det var fan på tiden <%=session("name")%> att du letar polare,<br>
ni bor ju ändå under samma tak.
<br><br>
<b>Steg 1 av 2</b><br><br>
<form name="makeFriend1" method="post" action="makeFriendStep2.asp">
Du vill skapa en relation med
<select name="FriendName">
<option value="<%=request.querystring("who")%>"><%=request.querystring("who")%></option>
</select>
<br>
stämmer det? Klicka då på "Gå vidare".
<input type="hidden" value="<%=session("sessionID")%>" name="owner">
<input type="hidden" value="<%=session("username")%>" name="ownerUsrName">
<input type="hidden" value="<%=request.querystring("FriendusrID")%>" name="FriendUserID">
<br><br>
<input type="submit" value="Gå vidare">
</form>
</font>
<% End IF
Else
strShowAllFriends = "SELECT t_FriendsCat.*, t_Friends.* FROM t_Friends INNER JOIN t_FriendsCat ON t_Friends.CategoryID = t_FriendsCat.CategoryID WHERE t_Friends.userID = " & Session("sessionid") &""
set objShow = objConn.execute(strShowAllFriends)
If objShow.EOF then
%>
<table width="100%"><tr>
<td bgcolor="#F3F4EB">
<font class="regularTextBlack">
<br><br><center>Du har inga relationer ännu.<br>Du kan alltid
<a href="default.asp?menuID=7&usrID=<%=session("sessionID")%>&do=search">söka</a> på inneboende.</center></font><br><br>
</td></tr></table>
<% Else %>
<font class="regularTextBlack">
Här listas de inneboende som du, <%=session("name")%> har en relation med.</font>
<br><br>
<%
Do Until objShow.EOF
If objShow("Category") <> ref then
response.write "<table width=""100%"" cellspacing=""0""><tr><td bgcolor=""#D4D8B1"">"&_
"<font class=""regularTextBlack""><b>"&objShow("Category")&"</b></font>"&_
"</td></tr></table>"
End IF
%>
<table width="100%">
<%
response.write "<tr><td bgcolor=""#F3F4EB"" align=""left"" width=""20%""><font class=""regularTextBlack"">"&_
"<a href=""default.asp?menuID=1&usrID="&objShow("FriendUserID")&"&who="&objShow("Friend")&""">"& objShow("Friend") &"</a></font></td>"
response.write "<td bgcolor=""#F3F4EB"" align=""center"" width=""30%""><font class=""regularTextBlack"">"&_
"<a href=""default.asp?usrID="&objShow("FriendUserID")&"&menuID=2&who="&objShow("Friend")&""">Visa "& objShow("Friend") &"'s notiser</a></font></td>"&_
"<td bgcolor=""#F3F4EB"" align=""center"" width=""30%""><font class=""regularTextBlack""><a href=""default.asp?do=sendNew&to="&objShow("Friend")&"&menuID=6"">Skicka brev till "& objShow("Friend")&"</a></font></td>"&_
"<td bgcolor=""#F3F4EB"" align=""center"" width=""20%""><font class=""regularTextBlack""><a href=""default.asp?who="&objShow("Friend")&"&menuID=5&do=edit"">Ändra</a></td>"
ref = objShow("Category")
objShow.movenext
Loop
%>
</tr></table>
<br><br>
<% End IF
End IF
End IF
%>
langt igen, rakna nu solbulle!
@ndersMedlem sedan juni 200032 967 inläggDet där är för mycket kod att gå igenom. Ett tips: Indentera koden, så är det betydligt lättare att följa, och därmed också se om du saknar end if eller liknande.
if det ena then
response.write "jippi"
if det andra också then
' woo!
while not bah.eof
' wäää!
wend
else
gör någe annat!
end if
end if
crisse6Medlem sedan dec. 20002 526 inlägg Men grejen ar den att spelar ingen roll verkar det som hur manga end if jag lagger till!
@ndersMedlem sedan juni 200032 967 inlägg Om du indenterar din kod ordentligt är det mycket lättare att se vad du missat.
En snabb indentering av din kod, kolla den fetmarkerade raden.
<%
If request.querystring("do") = "MakeNewFriend" and NOT request.querystring("who") = "" then
strGetAllCats = "Select * From t_FriendsCat"
strCheckFriend = "Select * From t_Friends Where Friend = '" & request.querystring("who") &"'"
set objCat = objConn.execute(strGetAllCats)
set objCheck = objConn.execute(strCheckFriend)
If request.querystring("choice") = "edit" then
%>
<font class="regularTextBlack">
Du har valt att ändra din relation med <%=request.querystring("who")%>,<br>
varför vet vi inte.<br><br>
Välj relation<br>
<form name="editFriend" method="post" action="EditFriend2.asp">
<select name="NewRelation">
<%
Do Until objCat.EOF
response.write "<option value="""&objCat("CategoryID")&""">"&objCat("Category")&"</option>"
objCat.Movenext
Loop
%>
</select>
<br>
<input type="submit" value="Ändra relation">
<input type="hidden" value="<%=request.querystring("who")%>" name="Friend">
</form>
<% ElseIF request.queystring("choice") = "Del" then
response.write "<table width=""100%"" bgcolor=""#F3F4EB""><tr><td><font class=""regularTextBlack"">"&_
request.querystring("who")&"</font></td><td><font class=""regularTextBlack"">"&_
"<a href=""EditFriend2.asp?Picked=Del"">Ta bort</a></font></td></tr></table>"
Else
If NOT objCheck.EOF then
%>
<font class="regularTextBlack">Du och <%=request.querystring("who")%> har redan en relation.<br>
Om du vill ändra/tabort relationen, gör det under "<a href="default.asp?menuID=5&usrID=<%=session("sessionID")%>">Polare</a>", eller "<a href="default.asp?menuID=1&usrID=<%=session("sessionID")%>">Möblera om rummet</a>".</font>
<% Else %>
<font class="regularTextBlack">
Det var fan på tiden <%=session("name")%> att du letar polare,<br>
ni bor ju ändå under samma tak.
<br><br>
<b>Steg 1 av 2</b><br><br>
<form name="makeFriend1" method="post" action="makeFriendStep2.asp">
Du vill skapa en relation med
<select name="FriendName">
<option value="<%=request.querystring("who")%>"><%=request.querystring("who")%></option>
</select>
<br>
stämmer det? Klicka då på "Gå vidare".
<input type="hidden" value="<%=session("sessionID")%>" name="owner">
<input type="hidden" value="<%=session("username")%>" name="ownerUsrName">
<input type="hidden" value="<%=request.querystring("FriendusrID")%>" name="FriendUserID">
<br><br>
<input type="submit" value="Gå vidare">
</form>
</font>
<% End IF
[b]Else[/b]
strShowAllFriends = "SELECT t_FriendsCat.*, t_Friends.* FROM t_Friends INNER JOIN t_FriendsCat ON t_Friends.CategoryID = t_FriendsCat.CategoryID WHERE t_Friends.userID = " & Session("sessionid") &""
set objShow = objConn.execute(strShowAllFriends)
If objShow.EOF then
%>
<table width="100%"><tr>
<td bgcolor="#F3F4EB">
<font class="regularTextBlack">
<br><br><center>Du har inga relationer ännu.<br>Du kan alltid
<a href="default.asp?menuID=7&usrID=<%=session("sessionID")%>&do=search">söka</a> på inneboende.</center></font><br><br>
</td></tr></table>
<% Else %>
<font class="regularTextBlack">
Här listas de inneboende som du, <%=session("name")%> har en relation med.</font>
<br><br>
<%
Do Until objShow.EOF
If objShow("Category") <> ref then
response.write "<table width=""100%"" cellspacing=""0""><tr><td bgcolor=""#D4D8B1"">"&_
"<font class=""regularTextBlack""><b>"&objShow("Category")&"</b></font>"&_
"</td></tr></table>"
End IF
%>
<table width="100%">
<%
response.write "<tr><td bgcolor=""#F3F4EB"" align=""left"" width=""20%""><font class=""regularTextBlack"">"&_
"<a href=""default.asp?menuID=1&usrID="&objShow("FriendUserID")&"&who="&objShow("Friend")&""">"& objShow("Friend") &"</a></font></td>"
response.write "<td bgcolor=""#F3F4EB"" align=""center"" width=""30%""><font class=""regularTextBlack"">"&_
"<a href=""default.asp?usrID="&objShow("FriendUserID")&"&menuID=2&who="&objShow("Friend")&""">Visa "& objShow("Friend") &"'s notiser</a></font></td>"&_
"<td bgcolor=""#F3F4EB"" align=""center"" width=""30%""><font class=""regularTextBlack""><a href=""default.asp?do=sendNew&to="&objShow("Friend")&"&menuID=6"">Skicka brev till "& objShow("Friend")&"</a></font></td>"&_
"<td bgcolor=""#F3F4EB"" align=""center"" width=""20%""><font class=""regularTextBlack""><a href=""default.asp?who="&objShow("Friend")&"&menuID=5&do=edit"">Ändra</a></td>"
ref = objShow("Category")
objShow.movenext
Loop
%>
</tr></table>
<br><br>
<%End IF
End IF
End IF
%>
Där ser du att du har ett else som inte hör någonstans. Om inte jag sett fel alltså.
