俵´ÔÀÇ °Ô½ÃÆÇ list.aspÀÇ À§ ºÎºÐÀ» ¼öÁ¤ ÇÑ °Ì´Ï´Ù.
ÀÌ·¸°Ô Çϸé DB¶û Å×ÀÌºí¿¡ ¿¬°áÀÌ µÇ¼
Å×À̺íÀÇ no,title1,title2´Â °¡Á®¿Í¼
V_no,V_tilte1,V_title2¿¡ ÀÔ·ÂÀÌ µÈ°ÇÁö¿ä...?
±Ùµ¥ ¿©±â±îÁö ÇÏ°í³ª¼ ºê¶ó¿ìÀú·Î ÀÐÀ¸¸é
500 Internal Server Error°¡ ¶å´Ï´Ù.
Á» ºÁÁֽǷ¡¿ä?
----------------------------------------------
<%@ LANGUAGE="VBSCRIPT" %>
<%
Stop_Flag=0
Set DBConnection = Server.CreateObject("ADODB.Connection")
DBConnection.ConnectionTimeout = Session("DBConnection_ConnectionTimeout")
DBConnection.CommandTimeout = Session("DBConnection_CommandTimeout")
DBConnection.Open Session("DBConnection_ConnectionString"), Session("DBConnection_RuntimeUserName"), Session("DBConnection_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set DataCommand1 = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT no,title1,title2 WHERE digital'"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DBConnection
DataCommand1.Open cmdTemp, , 0, 1
V_no=DataCommand1("no")
V_title1=DataCommand1("title1")
V_title2=DataCommand1("title2")
DataCommand1.Close
DBConnection.Close
Set DdtaCommand1=Nothing
Set DBConnection=Nothing
%>
-----------------------------------------
|