%
Dim A,B
If request("reply") <> "" Then
v_name=request("thename")
v_page=request("url")
v_reply=Replace(Request("reply"),"'","''")
Dim conDB
Dim rs
set conDB = CreateObject ("ADODB.Connection")
conDB.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=mysql69.secureserver.net; OPTION=16834; USER=commodity; Password=getrich;DATABASE=commodity"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "INSERT INTO comments (page,comment,name,date) VALUES('"&v_page&"','"&v_reply&"','"&v_name&"',CurDate())", conDB
conDB.Close
Else
End If
%>
The Commodity Investor: International, Commodities, Currencies
The world's most complete training manual
on Commodity Investing. The manual will teach you everything you
need to know about futures contracts, margin requirements and the
fundamental analysis of all commodity products traded in North America.
This is a must read for anyone interested in profiting from the world's
greatest commodity markets.
Stay tuned for more information.....
Replies:
<%
Dim connDB
Dim rsn
v_page=request("url")
set connDB = CreateObject ("ADODB.Connection")
connDB.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=mysql69.secureserver.net; OPTION=16834; USER=commodity; Password=getrich;DATABASE=commodity"
Set rsn = CreateObject("ADODB.Recordset")
rsn.Open "SELECT * FROM comments where page = '"&v_page&"' ORDER BY PK LIMIT 0,20", connDB
If NOT rsn.EOF then
Do Until rsn.EOF
Response.Write "
- " &rsn("comment") & " " &rsn("name") & "
"
rsn.MoveNext
Loop
End If
rsn.Close
Set rsn=Nothing
connDB.Close
Set connDB=Nothing
%>