Type mismatch: 'Imports' [Résolu]

[Teufboy]

Hello,

J'ai un peit prob d'ASP, qui me semble simple, mais je peine, voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
<%
Imports System
 
 
' Pramètres du POST
Dim vPostData
vPostData= "command1="ZzZ"
 
' On récupère le nombre de bytes à envoyés afin de construire la requête
bytes_to_send = System.Text.Encoding.UTF8.GetBytes(vPostData)
Dim strPost
strPost = vPostData
 
' Construction de la requête
Dim objRequest
'objRequest.Credentials = NetworkCredential("cisco", "cisco")
objRequest = CType(WebRequest.Create("192.168.100.2"), HttpWebRequest)
objRequest.Method = "POST"
objRequest.ContentLength = bytes_to_send.Length 
objRequest.ContentType = "application/x-www-form-urlencoded" 
objRequest.Timeout = 10000
objRequest.Headers.Add("Authorization: Basic Y2lzY2d86Y2lzfY28=")
 
Try
  Dim myWriter
  ' Ouverture du flux d'écriture
  myWriter = FileSystemObject(objRequest.GetRequestStream())    'TextStream ?
  ' Ecriture de la requête
  myWriter.Write(strPost) 
Catch e
  Console.WriteLine(e.ToString)
Finally
  ' Fermeture du flux d'écriture
  myWriter.Close()
 
' Test
Console.WriteLine(objRequest.Headers)
 
Dim objResponse
' Obtention de la réponse à la requête
objResponse = objRequest.GetResponse()
Dim myReader
Dim ResponseData
 
Try
  ' Ouverture d'un flux de lecture
  myReader = FileSystemObject(objResponse.GetResponseStream())
  ResponseData = myReader.ReadToEnd()
Catch e
  Console.WriteLine(e.ToString)
Finally 
  myReader.Close()
 
%>

Voilà l'erreur que je reçois :

Code :

1
2
3
4
5
 
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'Imports'
/monFichier.asp, line 11

Sinon j'en profite pour demander également si quelqu'un sait, si je peux rajouter une ligne d'authentification dans les header avec cette commande :

Code :

1
2
 
objRequest.Headers.Add("Authorization: Basic Y2lzY2d86Y2lzfY28=")

C'est correcte ?

Un grand merci à tous ceux qui pourront me débloquer

[malbaladejo]

"Imports System" n'existe pas en asp.
Si tu fais de l'asp.net, tu n'est pas sur le bon forum.

[Teufboy]

Hello,

Merci de la réponse, non, je tente de faire de l'ASP.
Mais quand j'enlève la ligne il me dit :

Code :

Object required: 'System'

Une idée ?

[malbaladejo]

ton code ressemble beaucoup trop a de l'asp.net.
Ce n'est pas de l'asp.
Si tu veux le faire fonctionner en asp, il faut tout revoir...

[Teufboy]

Salut malbaladejo,

Finalement après trop de galères je suis passé en php
Cela me permit de faire ce que je voulais en 2 minutes
Merci pour le coups de main !