asp+sql的问题，请高手帮忙

baoermao

    一个数据库，比如说叫protable，他含有两个表，aaa和bbb。我有一个表单的填写，要分别插入aaa 和bbb中，但是bbb中有一个记录是要根据aaa刚才插入的记录中自动生成的id来写的。所以我这样写：
Set conn = Server.CreateObject(\"ADODB.Connection\"   
        conn.Open
  \'然后读取表单内容，比如：
sg_name = trim(Request(\"g_name\")
   \'然后更新表aaa
    sqlinsorder = \"insert into aaa  (firstname) values (\'\"& sg_name &\"\')\"
               conn.execute sqlinsorder
\'然后重新打开表aaa，读id的值
sql=\"select orderid from aaa\"
               Set rs= Server.CreateObject(\"ADODB.Recordset\"  
               rs.open sql,conn,3,3
          sOrderid = rs(\"orderid\"
               rsOrder.close
\'然后再把sorderid写入表bbb
sqlinsorderProd = \"insert into bbb (orderid) values (\'\"& sOrderid &\"\')\"
               conn.execute sqlinsorderProd  

可是不对。提示说服务器错误，该页无法显示，请高手帮我看看哪里错了。多谢大家。

蓝带鱼

报的是哪一行错误？
conn.Open
后面有连接字串吗？

zhlbiti

Public Function CS_AddAuction(strProductID As String, strProductName As String, _
    strProductDesc As String, lngUpsetPrice As Long, lngQuantity As Long, strRule As String, _
    strIssueBy As String, dtmStartDate As Date, dtmInvalidDate As Date, _
    lngIsOrderEnd As Long, lngIssueMode As Long, Optional strApplyTo As String = \"\" As Long


    Dim conDbLegend As ADODB.Connection
    Dim strT_Auction As String
    Dim lngAuction_ID As Long
    Dim recAuction As ADODB.Recordset
    Dim ojbCommon As LegendPublic.common
    Dim lngIsAuctionID As Long
    Dim strDept_ID As String
    Dim strSql As String
    Dim rs As ADODB.Recordset
    Dim blnIstrans As Boolean
    Dim strEndTime As String
    Dim dtmEndTime As Date
   
    On Error GoTo cs_addauctionerror
        \'数据库连接
        Set conDbLegend = New ADODB.Connection
        conDbLegend.Open strConString
        
        \'
        Set rs = New ADODB.Recordset
        strSql = \" SELECT DEPT_ID\" _
                & \" FROM CS_DEPT_REF \" _
                & \" WHERE CS_ID = \'\" & strIssueBy & \"\'\"
      
        \'SqlStr = \"select T_BidOrder.Auction_ID, Product_ID, ProductName,UpsetPrice,Order_ID, Agent_ID,Bidding, T_BidOrder.Quantity AS quantity from T_Auction,T_BidOrder where T_Auction.auction_id=T_BidOrder.auction_id and T_bidorder.Order_Id=\" & lOrderId
        rs.Open strSql, conDbLegend, adOpenStatic, adLockReadOnly
        If rs.RecordCount <> 1 Then
             CS_AddAuction = -2
             Set rs = Nothing
             Set conDbLegend = Nothing
             Exit Function
        End If
        
        
        strDept_ID = rs(\"DEPT_ID\"
        Set rs = Nothing
        
        conDbLegend.BeginTrans  \'开始事务
        blnIstrans = True
        strEndTime = CStr(dtmInvalidDate) & \" 23:59:59\"
        dtmEndTime = CDate(strEndTime)
        \'
        \'拍卖商品库新增拍卖(T_Auction)
        Set recAuction = New ADODB.Recordset
        recAuction.CursorLocation = adUseClient
        recAuction.Open \"T_Auction \", conDbLegend, adOpenDynamic, adLockOptimistic, adCmdTable
        recAuction.AddNew
        recAuction(\"roduct_Id\" = strProductID
        recAuction(\"DEPT_ID\" = strDept_ID
        recAuction(\"roductName\" = strProductName
        recAuction(\"roductDesc\" = strProductDesc
        recAuction(\"UpsetPrice\" = lngUpsetPrice
        recAuction(\"Quantity\" = lngQuantity
        recAuction(\"IssueMode\" = lngIssueMode
        recAuction(\"roductRule\" = strRule
        recAuction(\"IssueBy\") = strIssueBy
        recAuction(\"StartDate\") = dtmStartDate
        recAuction(\"InvalidDate\") = dtmEndTime
        recAuction(\"IsOrderEnd\") = lngIsOrderEnd
        recAuction(\"IssueDate\") = Now()
        recAuction.Update
        lngAuction_ID = recAuction(\"Auction_ID\")    \'得到新增记录的Auction_ID值
        
        \'recAuction.Close
        recAuction.ActiveConnection = Nothing
        Set recAuction = Nothing
        
        Set ojbCommon = New LegendPublic.common
        
        lngAuction_ID = ojbCommon.CS_AddToACL(conDbLegend, lngIssueMode, 2, lngAuction_ID, strApplyTo)
        If lngAuction_ID < 0 Then
            conDbLegend.RollbackTrans
            CS_AddAuction = -1
            Set ojbCommon = Nothing
            conDbLegend.Close
            Set conDbLegend = Nothing
            Exit Function
        End If
        
        conDbLegend.CommitTrans \'提交事务
        
        blnIstrans = False
        CS_AddAuction = 1
        Set ojbCommon = Nothing
        conDbLegend.Close
        Set conDbLegend = Nothing
        Exit Function
\'出错处理
cs_addauctionerror:
     If blnIstrans Then
        conDbLegend.RollbackTrans  \'撤销事务
     End If
     CS_AddAuction = -1
     If Not conDbLegend Is Nothing Then
        conDbLegend.Close
        Set conDbLegend = Nothing
     End If
            
     Select Case Err.Number
       Case Else
       Err.Raise Err.Number
     End Select
     
   
End Function

baoermao

根本就不能显示。只是说服务器内部错误。什么500什么的。
zhlbiti ： 我不明白你的意思呢

蓝带鱼

估计可能是你的连接数据库出错了
在你的程序中我没有看到数据库的连接字串
请你写出来
另外
你可以用response.flush
response.write
显示出错误来！