Frågan#1
Jag kan inte en gnutta om XML men har klippt ihop detta och får ett underligt meddelande tillbaka... Eller IAF inget meddelande jag förstår.
Error Type: ( 0x800C0005 )
file: /haxxor.asp
line: « 22 »
Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
Page: POST 288 bytes to /ok.asp
POST Data: SaveType=New&oldPN=&KundNamn=Knut+Olofsson&KundPN=197905097818&KundAdr=Sturegatan+15g&KundPa=89010+bjasta&ContactType=telefon&check_fordel=Checked&fordel=skapa&telebonus=&internet=&favorit_kund=& . . .
Och koden som genererar detta fel:
If LCase(ReqStr("mycheck")) = "goforit" Then
Dim objHttp: Set objHttp = Server.CreateObject("Msxml2.XMLHTTP")
objHttp.open "POST", "http://xxxx.xxxx.xxxx/xxxx/xxxx.php?menu=1&src=save_client.asp", False, "", ""
objHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHttp.setRequestHeader "User-Agent" , "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0;)"
' For Each i In Request.Form
' PostData = PostData & i & "=" & Trim(Request.Form(i)) & "&"
' Next
' PostData = Left(PostData, Len(PostData) - 1)
' PostData = Replace(PostData, "&", "<font color='#ff0000'>&</font>")
' Response.Write "<font size = 2>" & PostData & "</font>"
[red]line 22 objHttp.send("KundNamn="&KundNamn&"&KundPn="&KundPn&"&KundAdr="&KundAdr&"&KundPa="&KundPa&"&ContactType="&ContactType&"&check_telebonus="&check_telebonus&"&telebonus="&telebonus&"&check_internet="&check_internet&"&internet="&internet&"&check_favorit="&check_favorit&"&favorit_to1="&favorit_to1&"&favorit_to2="&favorit_to2&"&favorit_to3="&favorit_to3&"&favorit_to4="&favorit_to4&"&favorit_to5="&favorit_to5&"&check_fritid="&check_fritid&"&fritid="&fritid&"&check_fordel="&check_fordel&"&fordel="&fordel&"")[/red]
Set objHttp = Nothing
End If