把登陆的用户名插入另一张表中!
<%@ language=VBscript%>
<!--#include virtual="human/Gen.inc"-->
<%
E_Mail=Request.Form("EMail")
T_Topic=Request.Form("T_Topic")
T_Content=Request.Form("T_Content")
ID=GetUserID()
set Datacon=server.CreateObject("adodb.connection")
set Rs=Server.CreateObject("adodb.Recordset")
datacon.ConnectionTimeout=20
datacon.Open "dsn=HumanResource","HRAdmini","111111"
SqlQuery="Select User_ID From ResumeForCharge_fixed Where ID="&cstr(ID)
set Rs=Datacon.Execute(SqlQuery)
If Rs.EOF Then
ReturnErrorpage WsecLogonUserID
end if
sqlquery="insert into ETold(User_ID,T_Topic,"
sqlquery=sqlquery&"T_Content,E_Mail)"
sqlquery=sqlquery&"values("
sqlquery=sqlquery&sqlstr(User_ID)&","
sqlquery=sqlquery&sqlstr(T_Topic)&","
sqlquery=sqlquery&sqlstr(T_Content)&","
sqlquery=sqlquery&sqlstr(E_Mail)&")"
DataCon.Execute SqlQuery (第26行)
returnSuccessPage wsscjobreport
%>
功能没实现,提示第26行有错!
咋整呢?