Hej!
Just nu har jag så att man kommenterar direkt när man läser inlägget (längst ner), men om jag vill ha en länk så att när man ska kommentera får en egen ruta hur gör jag då? Har försökt fixat det själv, men det blir som att man skriver ett inlägg och inte kommenterar.
Såhär ser det ut i min read.asp fil (där texten i inlägget står + där man kommenterar)
<!-- #include file="adovbs.inc" -->
<%
inlaggID = Request.QueryString("ID")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/forum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From asp WHERE ID=" &inlaggID
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
Function Smiley(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
Response.Write text
End Function
%>
<html>
<head>
<title>ASPsidan Sidan för dig som gillar ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="500" border="0" cellspacing="0" cellpadding="2" height="100%" align="center">
<tr>
<td valign="top" class="right-line"> <br>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#DCDCDC">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">
<div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=server.HTMLEncode(RecSet("RUBRIK"))%></b></font></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<b><td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br></B>
<br>
</font></td>
</tr>
<tr>
<b><td valign="top"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1">Skrivet
av </font><font color="#DCDCDC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <font color="#000000"><%=RecSet("DATUM")%></font>
| Epost :</font> <font size="1">
</B> <%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
<a href="mailto:<%=RecSet("EPOST")%>" class="vit"><%=server.HTMLEncode(RecSet("EPOST"))%></a>
<%
END IF
%>
</font> </font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
IF RecSet("ANTALSVAR") <> 0 THEN
RecSet.CLOSE
Addera = "Select * From asp WHERE REF_ID=" &Request.QueryString("ID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<br>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font> <br>
<br>
<%DO UNTIL RecSet.EOF%>
<table width="90%" border="0" cellpadding="1" align="center">
<tr>
<td bgcolor="#DCDCDC">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20">
<div align="center"><b><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("RUBRIK"))%></font></b></div>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF" valign="top"> <font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%=Smiley(RecSet("INLAGG"))%><br>
<br>
</font></td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF">
<hr width="100%" size="1">
<font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#000000">Skrivet
av </font><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=server.HTMLEncode(RecSet("NAMN"))%></font></b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
den <i><%=RecSet("DATUM")%></i> | <b>Epost</b> :</font>
<font size="1" color="#000000">
<%
IF RecSet("EPOST") = "" THEN
Response.Write "ingen epost"
ELSE
%>
</font><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="mailto:<%=RecSet("EPOST")%>" ><%=server.HTMLEncode(RecSet("EPOST"))%></a></font><font size="1" color="#000000">
<% END IF %>
</font></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
RecSet.MOVENEXT
LOOP
END IF
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
<div align="left"></div>
<form name="form1" method="post" action="adderaPost.asp?refID=<%=inlaggID%>">
<hr width="100%" size="1" align="left">
<div align="left"><b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
</font><br>
<font size="1"><A HRef="comments.asp">Kommentera</A></font></font></b><br>
<b><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" color="#FF0000">
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
</font></font></b><br>
</div>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="namn" size="30" maxlength="20" class="TABELLER" value="<%IF Request("UserInfo")("NAMN") <> "" THEN Response.Write Request("UserInfo")("NAMN")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Namn</font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="text" name="epost" size="30" maxlength="50" class="TABELLER" value="<%IF Request("UserInfo")("EPOST") <> "" THEN Response.Write Request("UserInfo")("EPOST")%>">
</font></td>
<td width="174"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Epost</font></td>
</tr>
<tr>
<td width="226"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="rubrik" size="30" maxlength="50" class="TABELLER">
</font></td>
<td width="174"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">Rubrik</font></td>
</tr>
<tr>
<td colspan="2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="inlagg" cols="40" rows="10" class="TABELLER"></textarea></font></td>
</tr>
<tr>
<td width="226"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="submit" name="Submit" value="Spara kommentar" alt="Posta svaret" border = "0">
</font></td>
<td width="174"> </td>
</tr>
</table>
</form>
<div align="left">
<p> </p>
<p><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="forum.asp"></a><br>
</font></p>
</div>
</td>
</tr>
</table>
</body>
</html>
Vad ska jag skriva i den nya filen jag ska skapa? Sen, vad ska jag ta bort i denna fil för att man inte ska kunna kommentera direkt?