Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Dim oRS,oDF,oRDS,oDC,DB
Sub button1_onclick
Set oRDS = CreateObject("RDS.DataSpace")
Set oDC = CreateObject("RDS.DataControl")
'Entspricht ADO Connection
Set oDF = oRDS.CreateObject("RDSServer.DataFactory","http://www.meinserver.de")
db = "DRIVER=SQL Server;UID=web;PASSWORD=password;DATABASE=Northwind;SERVER=DBS1"
Set oRS = oDF.Query(DB,"select * from customers")
oDC.SourceRecordset = oRS
'------------------------------
'Für DataGrid ActiveX Control
'Set DataGrid1.DataSource = oRS
'DataGrid1.Refresh
'------------------------------
ihtml = "<table border=""0"" align=""center"" cellspacing=""0"" cellpadding=""2"" style=""border:thin solid black"">"
ihtml = ihtml & "<tr><td bgcolor=""#99000"" align=""center"" style=""color:#FFFFFF"">Customer ID</td><td bgcolor=""#99000"" align=""center"" style=""color:#FFFFFF"">Company Name</td></tr>"
do while not oRS.EOF
ihtml = ihtml & "<tr><td bgcolor=""#AFAFAF"" style=""border-right:1px solid black"">" & oRS("CustomerID") & "</td><td bgcolor=""#EFEFEF"">" & oRS("CompanyName") & "</td></tr>"
oRs.MoveNext
Loop
document.all.output.innerHTML = ihtml & "</table>"
End Sub
Sub button2_onclick
oDF.SubmitChanges DB,oRS
msgBox "Daten gespeichert"
End Sub