Mit VBA unter Access und XMLHTTP und Post Daten spielen

[Steel]

Hi,

Ich hab hier ne Accesdatenbank mit der ich ueber eine (classic) ASP Schnittstelle Daten an die Webdatenbank schicken moechte.

Ich will das ganze per XMLHTTP erledigen. Die Daten sollen per POST uebertragen werden. Das ASP Script findet aber keine. Baue ich aber einen Fehler ein um die Servermeldung zu sehen, zeigt er mir sehr wohl an das es postdaten gibt und auch der String ist korrekt.

Hier das ASP Script, das immer nur 'ERROR: USER' ausgibt:

<%@LANGUAGE="VBSCRIPT" Codepage = 65001%>
<% Response.CacheControl = "no-cache" %>
<%
UserId = Trim(Request.QueryString("uid"))
Response.Write(Request.QueryString)
If UserId <> "" then

Response.Write(UserId)
Else
 Response.Write("ERROR: USER")
End If

%>

und hier der VBA Code, der was posten soll:

Private Sub readhttp()
    Dim XMLhttp: Set XMLhttp = CreateObject("Microsoft.XMLHTTP")
    Dim querystring: querystring = "uid=meineID"
    Dim url: url = "URL zum ASP File"
    XMLhttp.Open "POST", url, False
    XMLhttp.setrequestheader "Content-Type", "application/x-www-form-urlencoded"
    MsgBox (querystring)
    XMLhttp.send querystring
    message = XMLhttp.responsetext
    MsgBox (message)
End Sub

Wie gesagt, zeigen mir die Debuginfos des Servers, wenn ich einen Fehler ins ASP baue, sehr wohl an, das im POST "uid=meineID" steht.

Ideen?

[Steel]

Hiho!

Antwort: Man sollte nicht seine Get- mit den Post-Scripten vertauschen. :) Fuer Interessierte:

UserId = Trim(Request.QueryString("uid"))
funktioniert mit Get, nicht mit Post.

Fuer Post muesste so aussehen:
UserId = Trim(Request.Form("uid"))

Und ich sollte mir endlich nen Job mit vernuenftigen Arbeitszeiten zulegen...