HJÆLP!
Nu har jeg siddet og rodet lidt med koden, og den vil ikke helt som jeg vil...
her er min kode:
C#
noget kode...
private const int firmaId = 1;
private void OpdaterASP(String test)
{
HttpWebRequest req = (HttpWebRequest)WebRequest.Create("
http://domæne.dk/Testing-Area/transport/klient.asp");
req.Method = "POST";
req.ContentType = "application/x-www-form-urlencoded";
StreamWriter post = new StreamWriter(req.GetRequestStream());
post.Write("firmaId=" + firmaId + "mode=" + test);
post.Close();
HttpWebResponse resp = (HttpWebResponse)req.GetResponse();
StreamReader sr = new StreamReader(resp.GetResponseStream());
string line;
while ((line = sr.ReadLine()) != null)
{
string[] parts = line.Split(" ".ToCharArray());
listBox1.Items.Add(parts[1]);
}
sr.Close();
resp.Close();
}
private void opdater_Click(object sender, EventArgs e)
{
OpdaterASP("opdater");
}
ASP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'opret forbindelse til database
Set con = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/transport.mdb")
con.Open DSN
Response.ContentType = "text/plain"
'Denne IF-sætning håndterer alle forespørgsler til db fra klientprogrammet.
IF Request.Form("mode") = "opdater" THEN
strSQL = "SELECT * FROM ORDRER WHERE FirmaId=" & cInt(Request.Form("firmaId")
SET ordrer = con.Execute(strSQL)
DO WHILE NOT ordrer.EOF
Response.Write ordrer("FraNavn") & " " & ordrer("TilNavn") & vbCrlf
ordrer.MoveNext
LOOP
ELSE
Response.Write "Intet at gøre her"
END IF
'lukker forbindelsen til databasen
con.Close
Set con = Nothing
%>
Jeg ved ikke helt hvor det er, at den fejler...