12-10-06, 17:56
|
# 9 |
|
חבר בקהילה
|
אוףף..זה לא עובד לי
הנה הקוד : <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(תוכן התגובה)
__________________
מספק כתיבת תוכן בעברית ובאנגלית ותרגומים-הבלוג שלי. Email:idan43@gmail.com MSN:universal23@windowslive.com Last edited by idan43; 12-10-06 at 18:21.. |
|
| חברים פעילים הצופים באשכול זה: 1 (0 חברים ו- 1 אורחים) | |
| כלים לאשכול | |
| תצורת הצגה | |
|
|
תצורת אשכולות