|
|
 |
|
이문현 / 2000-08-13 / 오후 9:44:36 / 211.176.174.12
조회수 : 152
|
| [질문] 해결했습니다 감사합니다 |
go
> 안녕하세요
> 다운 받은 게시판을 풀어서 실행시키고 있는에
> 글 을 쓰고 등록을 하려면 에러가 발생합니다
> 에러 메세지는====>
> 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="이름을 입력하세요.
"
> end if
>
> if P_Subject="" then
> V_Error=0
> V_ErrorString=V_ErrorString+"제목을 입력하세요.
"
> end if
>
> if P_Contents="" then
> V_Error=0
> V_ErrorString=V_ErrorString+"내용을 입력하세요.
"
> 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
> Set DB |
|
|
|