꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> 안녕하세요 > 다운 받은 게시판을 풀어서 실행시키고 있는에 > 글 을 쓰고 등록을 하려면 에러가 발생합니다 > 에러 메세지는====> > ADODB.Field (0x800A0BCD) > BOF 또는 EOF가 참이거나, 현재 레코드를 삭제했습니다. 요청한 작업에 현재 레코드가 필요합니다. > /beefkorea/freewebboard/wrote.asp, line 62 > 입니다 sql를 사용하고 있구요 2000을 쓰고 있습니다 > 게시판 db는 생성이 되는데 line62 구문이 > 바로 이부분이거든요===== > V_Email=DataCommand1("C_Email_N") > V_ManagerMail=DataCommand1("C_ManagerMail_N") > ====> > 해결좀 해주세요 > 밑에 전문을 보내드립니다 > 해당db에는 C_Email_N이 생겼고 등록도 됬는데 > 알 수가 없습니다 ...꼭좀 해결해 주세요.. > > <%@ LANGUAGE="VBSCRIPT" %> > > <% > Response.Buffer=True > > P_ID=Request("P_ID") > > P_Name=Trim(Request("F_Name")) > P_Email=Trim(Request("F_Email")) > P_Url=Trim(Request("F_Url")) > P_Subject=Replace(Trim(Request("F_Subject")), "'", "''") > P_Contents=Replace(Request("F_Contents"), "'", "''") > P_Password=Trim(Request("F_Password")) > > V_Year=Year(date) > V_Month=Month(date) > if V_Month<10 then > V_Month=0&V_Month > end if > V_Day=Day(date) > if V_Day<10 then > V_Day=0&V_Day > end if > V_Date=V_Year&"-"&V_Month&"-"&V_Day > V_Time=Time() > V_Reference=0 > V_Error=1 > V_ErrorString="" > > if P_Name="" then > V_Error=0 > V_ErrorString="이름을 입력하세요.<br>" > end if > > if P_Subject="" then > V_Error=0 > V_ErrorString=V_ErrorString+"제목을 입력하세요.<br>" > end if > > if P_Contents="" then > V_Error=0 > V_ErrorString=V_ErrorString+"내용을 입력하세요.<br>" > end if > > if V_Error=1 then > Response.Cookies("Dream_Data")("K_Name")=P_Name > Response.Cookies("Dream_Data")("K_Email")=P_Email > Response.Cookies("Dream_Data")("K_Url")=P_Url > Response.Cookies("Dream_Data").Expires=Date+100 > > 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 C_Email_N, C_ManagerMail_N FROM boardbeef WHERE C_ID_N='"&P_ID&"'" > cmdTemp.CommandType = 1 > Set cmdTemp.ActiveConnection = DBConnection > DataCommand1.Open cmdTemp, , 0, 1 > > V_Email=DataCommand1("C_Email_N")====>이부분이에요.. > V_ManagerMail=DataCommand1("C_ManagerMail_N") > > DataCommand1.Close > DBConnection.Close > Set DdtaCommand1=Nothing > Set DBConnection=Nothing > > 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 MAX(C_Index_PIN) FROM boardbeef_"&P_ID&"_M" > cmdTemp.CommandType = 1 > Set cmdTemp.ActiveConnection = DBConnection > DataCommand1.Open cmdTemp, , 0, 1 > > V_Index=DataCommand1(0) > > if IsNumeric(V_Index)=False then > V_Index=1 > else > V_Index=V_Index+1 > end if > > DataCommand1.Close > DBConnection.Close > Set DdtaCommand1=Nothing > Set DBConnection=Nothing > > 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 MAX(C_Class_N) FROM boardbeef_"&P_ID&"_M" > cmdTemp.CommandType = 1 > Set cmdTemp.ActiveConnection = DBConnection > DataCommand1.Open cmdTemp, , 0, 1 > > V_Class=DataCommand1(0) > > if IsNumeric(V_Class)=False then > V_Class=1 > else > V_Class=V_Class+1 > end if > > V_IP=Request.ServerVariables("Remote_Addr") > > V_Sql="INSERT INTO boardbeef_"&P_ID&"_M (C_Index_PIN, C_Name_N, C_Email_A, C_Url_A, C_Subject_N, C_Contents_N, C_Password_N, C_Class_N, C_Order_N, C_Depth_N, C_Approval_N, C_Opposition_N, C_IP_N, C_Date_N, C_Time_N, C_Reference_N) VALUES ("&V_Index&", '"&P_Name&"', '"&P_Email&"', '"&P_Url&"', '"&P_Subject&"', '"&P_Contents&"', '"&P_Password&"', "&V_Class&", 0, 0, 0, 0, '"&V_IP&"', '"&V_Date&"', '"&V_Time&"', 0)" > DBConnection.Execute(V_Sql) > > DataCommand1.Close > DBConnection.Close > Set DdtaCommand1=Nothing -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *