Urgent Help Needed - FrontPage Form data not being retrieved

[Carbine Nine]

I currently have two forms on my site which I created with FrontPage 2002
originally. They have been working fine for over three years now. The site is
hosted by XO Communications.

Suddenly, the night before last I stopped receiving most of the individual "Data
Posted To Form" emails from each submission made for the forms online.

I received only five overnight and only three during the day yesterday...yet,
when I logged in with FrontPage and opened the data text file that is the
destination file for each submission I found 43 submissions, most of which had
never been relayed to me in email like they normally are.

I spoke to an XO rep and she said the text file had gotten so large she couldn't
even open it. Thinking this might be part of the problem, I copied and pasted
the most recent submission data from the online text file to a document on my
computer----then all the data from the text file (three years worth), so the
text file would be starting fresh and empty.

I was hoping this would resolve the issue, but it has not. I did several test
submissions myself from the forms---but I never received them in email. Again,
there were many submissions from the forms overnight that were all there in the
online text file along with my test submissions----but they are still not being
relayed to my email the "Data Posted To Form" headers as they have in the past.

Right now, to keep my business functional, I'm forced to log on with FrontPage
regularly throughout the day---open the relevant text file in the "Private"
folder---then copy and paste the most recent submissions that have come in from
the forms, saving them to a document on my computer.

It's very tedious and I'm not getting my form results as soon as they are
submitted by a client or potential client.

The XO rep said they could have one of their specialist in the "scripting"
division get back with me (for a fee) and try to get it working correctly
again----but it might be TWO DAYS before someone would call.

I need help more quickly than that if at all possible.

Can anybody here help or make a suggestion as to what I might do to get this
working correctly??

Any help would be greatly appreciated.

Sincerely,
Carbine Nine

 

[Wayne-I-M]

hI

The simple answer would be to create an off line access database (on any
hard drive or even a memory stick) and store you large file in this. Then
just delete that On-Line data.

Create form with a button on it and have this (OnClick) import your file
then delete the old file - that way your On-Line file will always show only
the most recent data. Your old "stuff" would be save on to a hard drive.

Run the data though an update query to alter it what you want then an append
query to add it to the table.

Something like this (change all the CAPITAL letters to what you really have)

I have shown how to import 3 files but you can either do this for just one
or as many as you want (in case you have more than one On-Line DB. In this
case don't forget to alter the paths for each DB.

********************************************
IMPORTANT This will delete the old files after importing them so before you
do ANYTHING test it many times and if you don't understand the code don't use
it. This is up to YOU to do.
********************************************


Private Sub SOME CONTROL NAME HERE_Click()

Dim strOldPathName As String
Dim strNewPathName As String
myfile = Dir("PUT PATH TO DB HERE")

If myfile <> "" Then
Kill "PUT PATH TO DB HERE"

strOldPathName = "E:\NewVenture.mdb"
strNewPathName = "PUT PATH TO DB HERE"
DBEngine.CompactDatabase strOldPathName, strNewPathName

Else
strOldPathName = "PUT PATH TO DB HERE - THIS IS THE ON-LINE DATABASE"
strNewPathName = "PUT PATH TO DB HERE - THIS IS THE OFF OINE DB"
End If

Dim db As Database, tdf As TableDef
Set db = CurrentDb()
For Each tdf In db.TableDefs
If tdf.Name = "NAME OF FILE A" Then
DoCmd.DeleteObject acTable, "NAME OF FILE A"
End If
If tdf.Name = "NAME OF FILE B" Then
DoCmd.DeleteObject acTable, "NAME OF FILE B"
End If
If tdf.Name = "NAME OF FILE C" Then
DoCmd.DeleteObject acTable, "NAME OF FILE C"
End If

Next
DoCmd.TransferDatabase acImport, "Microsoft Access", "PUT PATH TO DB HERE",
acTable, "NAME OF FILE A", "NAME OF FILE A", structureonly:=False

DoCmd.TransferDatabase acImport, "Microsoft Access", "PUT PATH TO DB HERE",
acTable, "NAME OF FILE B", "NAME OF FILE B", structureonly:=False

DoCmd.TransferDatabase acImport, "Microsoft Access", "PUT PATH TO DB HERE",
acTable, "NAME OF FILE C", "NAME OF FILE C", structureonly:=False

End Sub