Unterlagen-Bestellservice

<% on error resume next data = "" includeURL = "http://www.vogelundnoot.com/forms/Order.aspx" if(InStr(includeURL,"?") = 0) then includeURL = includeURL & "?lang=de-de" else includeURL = includeURL & "&lang=de-de" end if set objXmlHttp = server.createobject("MSXML2.ServerXMLHTTP") if(Request.Form.Count > 0) then data = Request.Form end if if (len(request.querystring) > 0) then if(InStr(includeURL,"?") = 0) then includeURL = includeURL & "?" & request.querystring else includeURL = includeURL & "&" & request.querystring end if end if objXmlHttp.open "POST", includeURL, false objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send data response.CharSet = "UTF-8" response.CodePage = 65001 response.write(objXmlHttp.responseText) set objXmlHttp = nothing on error goto 0 %>