쿼리 날리기

SQL = "Select Max(num) from MyBoard"
    
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, db

If IsNULL(rs(0)) Then
number = 1
else
number = rs(0) + 1
End If

SQL = "INSERT INTO MyBoard (name,email,homepage,title,content,num,"
SQL = SQL & " readnum,writeday,pwd) VALUES "
SQL = SQL & "('" & name & "'"
SQL = SQL & ",'" & email & "'"
SQL = SQL & ",'" & homepage & "'"
SQL = SQL & ",'" & title & "'"
SQL = SQL & ",'" & content & "'"
SQL = SQL & "," & number
SQL = SQL & ", 0 ,'" & now() & "'"
SQL = SQL & ",'" & pwd & "')"
db.Execute SQL

rs.Close
db.close
rs.Close
db.close
Set rs = Nothing
Set db = Nothing

Response.redirect "list.asp"

졸라복잡하네