Forum - Sloooow Posting....Help!

Hello,

I posted a topic on Friday but didnt get any reply.  So I did some search over the weekend but still, cannot figure it out. I really hope you guys can help me!!!

The version of my forum is 7 (not the new one) and I run it against Access 2000 and while I've never had any problems with it, it's soooooooooooooooo slow each time you want to post a new topic that there must be something wrong with it. It takes like 2-3 minutes to post one reply, for real. I tried to compact the database, I tried to reboot the server but no luck. The rest of my site is running fine and fast, I own the server and it's got plenty of memory and bandwith. I'm just clueless on what I should do to fix the speed of the posting. The database is not even big, only 900 kb. The thing is I never get any error, it just takes forever.

Any idea?

Thanks for your assistance,

Morgan

boRg,

You are absolutely correct, I disabled the email notification in the Admin panel and it works really good now. Now I'm not sure what I can do regarding the email. I own the email server (Cobalt Unix) and have checked all the settings, it seems to be working just fine. Maybe I should use the CDONTS component on the Win2K box instead of ASPemail? Do you have any suggestions?

Morgan

If you want a faster email, use a component that just dumps email into a queue for sending.  CDOSYS does this with a small change - this is what I use for a local SMTP (I think AspEmail has a email-to-queue option as well)

Dim sch, cdoConfig
sch = "http://schemas.microsoft.com/cdo/configuration/" 
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
    .Item(sch & "sendusing") = 1 ' cdoSendUsingPickup
    .Item(sch & "smtpserver") = "localhost"
    .Item(sch & "smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
    .Item(sch & "flushbuffersonwrite") = "true"
    .update 'new
 End With 
         
Set objMessage = CreateObject("CDO.Message")
Set objMessage.Configuration = cdoConfig 
objMessage.Sender = "audit@irs.gov"
objMessage.To =  "wells@fargo.com"
objMessage.Send