Script ASP à passer en VB

Bonjour,

Mon soucis est le suivant j'ai créé un script en ASP3 permettant la création d'un sitemap et maintenant je dois le passer en Visual Basic. Cependant certaines commandes focntionnant en ASp ne passent pas lorsque l'on est en VB.

Il ne tolère pas les Server.CreateObject donc je l'ai remplacé par CreateObject et ça marche. Par contre j'utilise un chemin virtuel pour creer mon fichier et j'utilise l'objet Server.MapPath et celui là ne fonctionne pas même en enlevant Server.

Quelqu'un aurait-il une alternative ?

Merci

Dim ConnectIfac
Set ConnectIfac = CreateObject("ADODB.Connection")
ConnectIfac.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("..\Ifac\tarifs.mdb"))


'Déclaration des variables qui vont servir pour les requêtes SQL
Dim ReqSQLUn , sql, sqldeux, tableun, tabledeux, prixttc

Set ReqSQLUn = CreateObject("ADODB.RecordSet")

Dim FSO, fic, Ftxt

' ici tu instancies ton objet FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

'on indique où on enregistre le fichier en spécifiant un répertoire virtuel pour éviter les problèmes en mettant un champ physique
fic = Server.MapPath("../marge/sitemap.xml")

'On créé le fichier
Set Ftxt =  FSO.createTextFile(fic ,true)

en gros, ta question est :

"Comment récupérer le répertoire contenant le fichier VBS exécuté ?"

non ?

Bonjour,

J'aimerais bien pouvoir utiliser les champs virtuels plutôt que de mettre un champ en dur "C:\ect..." pour commencer.

NIRVANA is never enough ! It' in the spirit !