꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 *