thinh
Oct 30th, 1999, 09:52 AM
Is there anything wrong with the code below.
Sub cgi_main()
Dim Boardbd As Database
Dim Messages As Recordset
Dim boardname As String
Dim Name, Email, Subject, Message As String
Workspaces(0).OpenDatabase (boardname & ".mdb")
boardname = GetSmallField("bname")
Name = GetSmallField("name")
Email = GetSmallField("email")
Subject = GetSmallField("subject")
Message = GetSmallField("message")
Set Boardbd = Workspaces(0).OpenDatabase(boardname & ".mdb")
Set Messages = Boardbd.OpenRecordset("bbboard", dbOpenTable)
Messages.AddNew
Messages("name") = Name
Messages("email") = Email
Messages("subject") = Subject
Messages("message") = Message
Messages("parent") = 0
Messages.Update
send ("content-type: text/html:")
send ("<html><title>Message Posted!</title>")
send ("<h1>Your Message Has been Posted!</h1></html>")
End Sub
Please help!!!
Sub cgi_main()
Dim Boardbd As Database
Dim Messages As Recordset
Dim boardname As String
Dim Name, Email, Subject, Message As String
Workspaces(0).OpenDatabase (boardname & ".mdb")
boardname = GetSmallField("bname")
Name = GetSmallField("name")
Email = GetSmallField("email")
Subject = GetSmallField("subject")
Message = GetSmallField("message")
Set Boardbd = Workspaces(0).OpenDatabase(boardname & ".mdb")
Set Messages = Boardbd.OpenRecordset("bbboard", dbOpenTable)
Messages.AddNew
Messages("name") = Name
Messages("email") = Email
Messages("subject") = Subject
Messages("message") = Message
Messages("parent") = 0
Messages.Update
send ("content-type: text/html:")
send ("<html><title>Message Posted!</title>")
send ("<h1>Your Message Has been Posted!</h1></html>")
End Sub
Please help!!!