Hallo,
Was ist an diesem Code falsch?? Ich will, dass er ein swf aus dem DataSet ausliest und
auf der HTML - Seite ausgibt. Hier mal der komplette Code:
Private Sub submit_btn_ServerClick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles submit_btn.ServerClick
Dim Counter As Integer
Dim ds As New DataSet()
Dim iRow As DataRow
Dim anzahl As Integer
Dim i As Integer
ds.ReadXml(Server.MapPath("AufgabeFlash.xml"))
Counter = CType(ViewState("Counter"), Integer)
If CType(ViewState("Counter"), Integer) <= ds.Tables(0).Rows.Count - 1 Then
iRow = ds.Tables("Aufgabe").Rows(Counter)
fill_Controls(iRow)
Counter = Counter + 1
ViewState("Counter") = Counter
Else
Label2.Text = "keine weiteren Fragen"
End If
End Sub
Private Sub fill_Controls(ByVal iRow As DataRow)
Label1.Text = iRow.Item(1)
Response.Write("<OBJECT style=\"Z-INDEX: 102; LEFT: 40px; POSITION: absolute;
TOP: 130px\"
codeBase=\"http://download.macromedia.com/pub/shockwave/cabs/Flash/swFlash.cab#version=4,0,2,0\";
height=\"350\" width=\"350\" classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"
VIEWASTEXT>")
Response.Write("<PARAM NAME=\"_cx\" VALUE=\"9260\">")
Response.Write("<PARAM NAME=\"_cy\" VALUE=\"9260\">")
Response.Write("<PARAM NAME=\"FlashVars\" VALUE=\"9260\">")
Response.Write("<PARAM NAME=\"Movie\" VALUE=<\""+iRow.Item(2)+"\">")
Response.Write("<PARAM NAME=\"Src\" VALUE=<\""+iRow.Item(2)+"\">")
Response.Write("<PARAM NAME=\"WMode\" VALUE=\"Window\">")
Response.Write("<PARAM NAME=\"Play\" VALUE=\"0\">")
Response.Write("<PARAM NAME=\"Loop\" VALUE=\"-1\">")
Response.Write("<PARAM NAME=\"Quality\" VALUE=\"High\">")
Response.Write("<PARAM NAME=\"SAlign\" VALUE=\"\">")
Response.Write("<PARAM NAME=\"Menu\" VALUE=\"-1\">")
Response.Write("<PARAM NAME=\"Base\" VALUE=\"\">")
Response.Write("<PARAM NAME=\"Scale\" VALUE=\"ShowAll\">")
Response.Write("<PARAM NAME=\"DeviceFont\" VALUE=\"0\">")
Response.Write("<PARAM NAME=\"EmbedMovie\" VALUE=\"0\">")
Response.Write("<PARAM NAME=\"BGColor\" VALUE=\"\">")
Response.Write("<PARAM NAME=\"SWRemote\" VALUE=\"\">")
Response.Write("</OBJECT>")
End Sub
Die Anf�hrungszeichen muss man doch so \" angeben, oder???
Oder muss ich statt Response.Write lieber HttpTextWriter.Write machen?? -- Klappt
allerdings auch nicht :-(
Vielleicht f�llt euch ja was ein
Christina
--
Christina�Ehrmann
Mobil:�0170�/�3�06�31�33
eMail:[EMAIL PROTECTED]
______________________________________________________________________________
Horoskop, Comics, VIPs, Wetter, Sport und Lotto im WEB.DE Screensaver1.2
Kostenlos downloaden: http://screensaver.web.de/?mc=021110
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
