Nel tuo codice utilizzi per concatenare le stringhe due tecniche contemporaneamente: "and" con l'uderscore (& _) che fa capire all'interprete che la linea di codice attuale continua sulla seguente, e sulla linea successiva utilizzi la concatezione standard: strcode=strcode & ...
Togline una e vedrai che tutto funziona. Correggendo al volo:
strCode = "<" & "%"
strCode=strCode & "Set Conn=Server.CreateObject(""ADODB.Connection"") "strCode=strCode & "Conn.Open ""Driver={Microsoft Access Driver (*.md}BQ=""&_ <br />"
strCode=strCode & "Server.Mappath(""/"&url&"/"&nome&".mdb"")&"";UID="&user&"; PWD="&pass&" "
strCode=strCode & "%" & ">"
strCode=strCode
dim fs,fname
Filename = Server.MapPath("/_admin/include/conn2.asp")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile(Filename,true)
fname.WriteLine(strCode)
fname.Close
set fname=nothing
set fs=nothing

Ciao

milanopleasure <milanopleasure> ha scritto:

Ok perfetto ora lo scrive ma me lo scrive tutto su una riga anche se metto il <br /> ad ogni riga di comando. Oltre a scrivermelo tutto su una riga mi scrive anche <br />.
Come risolvo?

Non devi usare il "<br />" ma i codisci ascii \r\n. In VBScript:
strcode=strcode & "..." & vbCrLf

Ciao