Frågan#1
har suttit och knopat ihop ett forum idag... och jag känner att har gjort lite onödigt mycket kod på olika saker =S
tänkte göra massa dim i början och sen stänga recset i början...
men vet inte hur, om det går att göra det när man sedan kör do until, fick inte det att funka iaf...
men här kommer iaf hela koden och jag skulle bli glad om ni visade lite olika sätt man skulle kunna underlätta koden, så jag lär mig lite på kuppen...
<%
'********************************'kategorier*****************************'
if Request.QueryString("do")= "kat1" then
SQL2 = "SELECT id,katnamn,kattext,person FROM forum2kat where kat2namn ='' order by katnamn"
set RecSet2 = Connect.Execute(SQL2)
dim id2,katnamn2,kattext2,person2
id2 = RecSet2("id")
katnamn2 = RecSet2("katnamn")
kattext2 = RecSet2("kattext")
person2 = RecSet2("person")
Do Until RecSet2.EOF
cnt = cnt + 1
strColor = "#E3E8FE"
If cnt Mod 2 = 0 then strColor = "#FFFFFF"%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="<%= strColor%>">
<td><strong><font size="5" face="Verdana, Arial, Helvetica, sans-serif"><a href="forum.asp?do=kat2&kat=<%=RecSet2("katnamn")%>"><%=RecSet2("katnamn")%></a></font></strong><br> <%=RecSet2("kattext")%></td>
<td width="40"> </td>
</tr>
</table>
<%
RecSet2.Movenext
Loop
RecSet2.Close
end if
'********************************'under kategorier*****************************'
if Request.QueryString("do")= "kat2" then
SQL3 = "SELECT id,katnamn,kat2namn,kat2text,person,datum FROM forum2kat where katnamn = '"& Request.QueryString("kat")&"' and kattext='' order by datum DESC"
set RecSet3 = Connect.Execute(SQL3)
If RecSet.EOF Then
Response.write "Inga klotter =("
Else
Do Until RecSet3.EOF
cnt = cnt + 1
strColor = "#E3E8FE"
If cnt Mod 2 = 0 then strColor = "#FFFFFF"%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="<%= strColor%>">
<td width="351"><strong><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><a href="forum.asp?do=post&kat=<%=RecSet3("katnamn")%>&post=<%=RecSet3("id")%>&post2=<%=RecSet3("kat2namn")%>"><%=RecSet3("kat2namn")%></a></font></strong><br>
<%=RecSet3("kat2text")%></td>
<td width="187" align="right" valign="top"><%=RecSet3("datum")%></td>
</tr>
</table>
<%
RecSet3.Movenext
Loop
RecSet3.Close
end if
end if
'********************************'inlagg*****************************'
if Request.QueryString("do")= "post" then
SQL3 = "SELECT id,katid,postid,textid,rubrik,text,namn,datum,svar,typ FROM forum2post where katid = '"& Request.QueryString("post")&"' and svar='' order by datum DESC"
set RecSet3 = Connect.Execute(SQL3)
If RecSet.EOF Then
Response.write "Inga klotter =("
Else
Do Until RecSet3.EOF
cnt = cnt + 1
strColor = "#E3E8FE"
If cnt Mod 2 = 0 then strColor = "#FFFFFF"%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="<%= strColor%>">
<td width="351"><a href="forum.asp?do=las&rub=<%=RecSet3("rubrik")%>"><%=RecSet3("rubrik")%></a><br></td>
<td width="187" align="right" valign="top"><%=RecSet3("datum")%></td>
</tr>
</table>
<%
RecSet3.Movenext
Loop
RecSet3.Close
end if
end if
'********************************'las inlagg*****************************'
if Request.QueryString("do")= "las" then
SQL3 = "SELECT id,katid,postid,textid,rubrik,text,namn,datum,svar,typ FROM forum2post where rubrik = '"& Request.QueryString("rub")&"' and svar='' order by datum DESC"
set RecSet3 = Connect.Execute(SQL3)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="<%= strColor%>">
<td width="351"><%=RecSet3("rubrik")%>
<%
if bildok = "nej" then
Response.write "verifieras <br> av <br> admin"
else
If not bild = "0.jpg" then
response.write "<img src='../medlemmar/"& namn &"/" & bild & "' width='60' height='75' border=0 alt='Klicka på bilden för att förstora'></a>"
else
response.write "<img src='../medlemmar/" & bild & "' width='60' height='75' border=0 alt='Klicka på bilden för att förstora'>"
end if
end if
%>
<br>
<%=RecSet3("text")%></td>
<td width="187" align="right" valign="top"><%=RecSet3("datum")%></td>
</tr>
</table>
<br>
Svar på inlägget: <br>
<%RecSet3.Close
SQL3 = "SELECT id,katid,postid,textid,rubrik,text,namn,datum,svar,typ FROM forum2post where rubrik = '"& Request.QueryString("rub")&"' and svar='ja' order by datum ASC"
set RecSet3 = Connect.Execute(SQL3)
If RecSet.EOF Then
Response.write "Inga klotter =("
Else
Do Until RecSet3.EOF
SQL4 = "SELECT namn,bild,bildok,alder,kon FROM anvandare WHERE namn = '" & RecSet3("namn")& "'"
set RecSet4 = Connect.Execute(SQL4)
dim namn,bild,bildok,alder,kon
namn = RecSet4("namn")
bild = RecSet4("bild")
bildok = RecSet4("bildok")
alder = RecSet4("alder")
kon = RecSet4("kon")
RecSet4.close
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-bas">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td width="5%" rowspan="2" align="left" valign="top">
<%
if bildok = "nej" then
Response.write "verifieras <br> av <br> admin"
else
If not bild = "0.jpg" then
response.write "<img src='../medlemmar/"& namn &"/" & bild & "' width='60' height='75' border=0 alt='Klicka på bilden för att förstora'></a>"
else
response.write "<img src='../medlemmar/" & bild & "' width='60' height='75' border=0 alt='Klicka på bilden för att förstora'>"
end if
end if
%>
</td>
<td width="57%" height="0%" align="left" valign="bottom">
<p><%=namn%><%=kon%><%=alder%></p>
</td>
<td width="38%" height="0%" align="right" valign="top"><%=RecSet3("datum")%></td>
</tr>
<tr>
<td height="100%" colspan="2" align="left" valign="top"><%Response.write delaText(Server.HTMLEncode(RecSet3("text")))%></td>
</tr>
</table></td>
</tr>
</table>
<br>
<%
RecSet3.Movenext
Loop
RecSet3.Close
end if
end if%>