Data source name too long

[dhaveedh]

Can anyoe tell me why i get the error message;
Data source name too long with this piece of code?


<%
Response.Buffer = True

strUser = Request.ServerVariables(&quot;LOGON_USER&quot

' *********
Dim sDSNFile
Dim sPath, sDSN

sDSN = Server.MapPath(&quot;c:\windows\testme\employees\EmpComms.txt&quot

Dim conn, rs
Set conn = Server.CreateObject(&quot;ADODB.Connection&quot

conn.Open sDSN

Dim sql

sql = &quot;SELECT User FROM EmpComms.txt WHERE User = strUser&quot;
set rs = conn.execute(sql)

Do While Not rs.EOF

if strUser <> User then

end if

Loop

rs.close
set rs = nothing
conn.close
set conn = nothing

KISS - Keep It Simple Sugar!

 

[medic]

This code causes the problem:

sDSN = Server.MapPath("c:\windows\testme\employees\EmpComms.txt")

Try changing it to:

sDSN = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=c:\windows\testme\employees" & _
       ";Extended Properties='text;FMT=Delimited'"