|
|
 |
|
이문현 / 2000-08-13 / 오후 8:53:50 / 211.176.174.12
조회수 : 144
|
| [질문] 게시판 질문이에요
|
안녕하세요
다운 받은 게시판을 풀어서 실행시키고 있는에
글 을 쓰고 등록을 하려면 에러가 발생합니다
에러 메세지는====>
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
|
|
|
|