Error when submitting form - 0x80004005

[NewBeginner]

Firstly i'm a newbie at this kinda thing. So please any help you can give, do so in a step by step process in case i have no idea what you mean!

Ok, here's the problem....
I've been asked by a friend to make a site for their dance troupe, including booking form. I've done what i can so far but now i have a problem. The page is an asp file in VBscript created using dreamweaver mx. I can see the page but when i submit the form i get an error....


Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Could not use '(unknown)'; file already in use.
/haraam/wis.asp, line 113

that section of script is.....

If (CStr(Request(&quot;MM_insert&quot) <> &quot;&quot Then

' create the sql insert statement
MM_tableValues = &quot;&quot;
MM_dbValues = &quot;&quot;
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),&quot;,&quot
MM_delim = MM_typeArray(0)
If (MM_delim = &quot;none&quot Then MM_delim = &quot;&quot;
MM_altVal = MM_typeArray(1)
If (MM_altVal = &quot;none&quot Then MM_altVal = &quot;&quot;
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = &quot;none&quot Then MM_emptyVal = &quot;&quot;
If (MM_formVal = &quot;&quot Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> &quot;&quot Then
MM_formVal = MM_altVal
ElseIf (MM_delim = &quot;'&quot Then ' escape quotes
MM_formVal = &quot;'&quot; & Replace(MM_formVal,&quot;'&quot;,&quot;''&quot & &quot;'&quot;
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & &quot;,&quot;
MM_dbValues = MM_dbValues & &quot;,&quot;
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = &quot;insert into &quot; & MM_editTable & &quot; (&quot; & MM_tableValues & &quot values (&quot; & MM_dbValues & &quot&quot;

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject(&quot;ADODB.Command&quot
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> &quot;&quot Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>

line 113 is...
MM_editCmd.ActiveConnection = MM_editConnection


As i said i'm a newbie so it's probably something quite easy to solve. But any help you can give will be greatly appreciated.
TIA

 

[NewBeginner]

Ok i've taken out the last &quot; and i'm still getting...

Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/Haraam/wis.asp, line 114, column 30
Set MM_editcmd = ObjConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; & MM_Server.MapPath(&quot;C:\Inetpub\

http://wwwroot\Haraam\NonWIs.mdb&quot;)

When i try to submit it.

 

[mwolf00]

Sorry I missed the rest of this on Friday....


try this:
Set MM_editcmd = ObjConn.Open &quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; & Server.MapPath(&quot;C:\Inetpub\

http://wwwroot\Haraam\NonWIs.mdb&quot;)

I haven't seen the MM_ that you were using... I've only uses server.mapPath
-- Just trying to help...
<--- This is a wolf? We need a new icon.......
mikewolf@tst-us.com

 

[NewBeginner]

Thanks to you guys for all your help, but as things still aren't working i'm obviously going to have to go and start from scratch again but this time rather than jumping into it i'll have to do a lot of reading first so i can understand what i'm supposed to be doing.
It's taught me not to assume anything will be easy, even with the likes of wizards.
Anyway thanks again for all your help.
I'm off to do some learning now. LOL

 

[onpnt]

incase you want a good reference you can look into picking up
ASP Databases by John Kauffman wrox press
is a good one. I've injoyed reading it more then a few times.
VBScript unleashed gives you quite a bit as for syntax issues while using VBScript for you're ASP code as well.

sorry we couldn't get it going for you this time. A language that doesn't affect the way you think about programming is not worth knowing.

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com