Script ASP à passer en VB

Question

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	arifs.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)

Renfield · Answer

en gros, ta question est :

"Comment récupérer le répertoire contenant le fichier VBS exécuté ?"

non ?

shadowfox666 · Answer

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 !

Script ASP à passer en VB

2 réponses

Votre réponse

Discussions similaires