Server.MapPath( )

[lxon]

<%
Dim strDatabaseType

'Choose one of the following two lines, and comment out the other
strDatabaseType = &quot;Access&quot;
'strDatabaseType = &quot;MSDE&quot;

'Now we use this selection to specify the connection string'
If strDatabaseType = &quot;Access&quot; Then
strConnect = &quot;Provider=Microsoft.Jet.OLEDB.4.0;&quot; & _
&quot;Data Source=Server.MapPath(&quot;new_survey.mdb&quot;&quot; & _
&quot;Persist Security Info=False&quot;


Else
' strConnect = &quot;Provider=SQLOLEDB;Persist Security Info=False;&quot; & _
'&quot;User ID=sa;Initial Catalog=Movie;&quot; & _
'&quot;Initial File Name=C:\MSSQL7\Data\Movie2000.mdf&quot;
End If
%>

Currently this code gives me this error
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/AP/Web_Survey/DataStore.asp, line 11, column 29
can someone please tell me what's wrong coz i've been trying to fix the problem. Thanks a lot for any help rendered.

 

[Tarwn]

It's the extra quotes inside your server.MapPath, that stament shouldn't be aprt of the string, but concatenated in like so:

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                 "Data Source="&Server.MapPath("new_survey.mdb")&";" & _
                 "Persist Security Info=False"

-Tarwn If your happy and you know it...

 

[lxon]

Thanks a lot!!