<% ConnectName = "mssql_DB_17758.dsn" DSNPath = Server.MapPath("_dsn") if Instr(UCASE(DSNPath),"\SHOPPE") > 0 then DSNPath = Replace(DSNPath, "\shoppe", "") DSNPath = Replace(DSNPath, "\Shoppe", "") DSNPath = Replace(DSNPath, "\SHOPPE", "") end if Connstring = "filedsn=" & DSNPath & "/" & ConnectName set Connection = Server.CreateObject("ADODB.Connection") Connection.Open Connstring %>