אוףף..זה לא עובד לי
הנה הקוד
:
<code align="left"><html>
<style>
a:link{
underline:none;
}
</style>
<%@ Language=VBScript%>
<body link=white vlink=white alink=white background=back.jpg>
<%
dim article_id
article_id=Request.QueryString("id")
dim conn, rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("piano.mdb")
conn.Open DSNName
sql = "SELECT * FROM [articles] where article_id=" & article_id
rs.Open sql, conn, 3, 3
%>
<table bgcolor=lightblue><th><%=rs("title")%></th>
<tr><td><font face=arial size=3><%=rs("context")%></td><td><img src=<%=rs("IMG")%>></tr>
<Tr><TD><%=rs("date")%></td></tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
dim conn2, rs2
dim article_id2
article_id2=article_id
set conn2 = Server.CreateObject("ADODB.Connection")
set rs2 = Server.CreateObject("ADODB.Recordset")
DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("piano.mdb")
conn2.Open DSNName
sql = "SELECT * FROM [comments] where article_id='article_id2'"
rs2.Open sql, conn2, 3, 3
do while rs2.EOF
Response.write rs2("context")
rs2.movenext
loop
rs2.close
set rs2=nothing
conn2.close
set conn2=nothing
%>
<table><th>
Comments:</th><tr><td>
<FORM action="addc.asp" method=POST id=form1 name=form1>
Name:</td><td><INPUT type="text" id=text1 name=name></tr><tr><Td>
Context:</td><td><TEXTAREA rows=2 cols=20 id=textarea1 name=context>
</TEXTAREA></tr><tr><td>
<INPUT type="submit" value="Submit" id=submit1 name=submit1>
</td></tr></table></FORM>
[code]
השמות של השדות הם:article_id בשניהם
context(תוכן התגובה)