<%@ Language=VBScript %>
<% Option Explicit %>
<!-- #include file='bbsconn.asp' -->
<%
	
	Function CheckEmpty(a)
		If a<>"" Then
			CheckEmpty=a
		Else
			CheckEmpty=" "
		End If
	End Function

   Dim rsNew, max
   Dim nid,id,name,city,career,company,email,subject,msg,etime,ip

   Set rsNew = Server.CreateObject("ADODB.Recordset")
   Application.Lock
   sqlstr = "SELECT MAX(id) as id FROM BulletinBoard"
   rsNew.open sqlstr, conn, 3, 3
   id = rsNew("id")
   If IsNull(id) or Not(IsNumeric(id)) Then id=0
   id=id+1
   rsNew.Close
   
   sqlstr = "INSERT BulletinBoard (id,nid,name,city,career,company,email,subject,msg,ip,status)" &_
			"  VALUES ("& id &","& CInt(Request("nid")) &",'"&  Request("name") &"','"& Request("city") &"','"& _
			   CheckEmpty(Request("career")) &"','"& CheckEmpty(Request("company")) &"','"& _
			   Request("email") &"','"& Request("subject") &"','"& Request("msg") &"','"& _
			   Request.ServerVariables("REMOTE_ADDR") &"', 0)"
   rsNew.open sqlstr, conn, 3, 3
   Application.UnLock


   nid      = CInt(Request("nid"))
   name     = Request("name")
   city     = Request("city")
   career   = Request("career")
   company  = Request("company")
   email    = Request("email")
   subject  = Request("subject")
   msg		= Request("msg")
   etime = Now()
   ip       = Request.ServerVariables("REMOTE_ADDR")
   
%>
<!-- #include file='bbssave.asp' -->
<%
   'rsNew.close
   'conn.close
   Set rsNew = Nothing
   'Set conn = Nothing
%>