<%Set RS = Server.CreateObject("ADODB.Recordset") if request.form("B1") = "Submit" then Set cmd = Server.CreateObject("ADODB.Command") With cmd .ActiveConnection = dbcon .CommandText = request.form("T1") .CommandType = adCmdStoredProc .Parameters.Refresh tekst = "Set cmd = Server.CreateObject("&chr(34)&"ADODB.Command"&chr(34)&")
" tekst = tekst + "With cmd
" tekst = tekst +".ActiveConnection = dbcon
" tekst = tekst +".CommandText = "&chr(34)&"homeent."&request.form("T1")&chr(34)&"
" tekst = tekst +".CommandType = adCmdStoredProc
" For each ParP in .Parameters tekst = tekst +"Set param = .CreateParameter("&chr(34)&parp.name&chr(34)&","&parp.type&", "&parp.direction&", "&parp.size&", "&chr(34)&"Værdi"&chr(34)&")
" tekst = tekst +".Parameters.Append param
" php = php+ "oci_bind_by_name($s, "&chr(34)&":"&parp.name&chr(34)&", $"&parp.name&", "&parp.size&", SQLT_CHR);
" phpstart = phpstart + ":"& parp.name&", " next tekst = tekst +"End With
" tekst = tekst +"cmd.Execute
" end with phptekst = "$s = ociparse($conn, Call HOMEENT."&request.form("T1")&" ("&phpstart&")
"+php end if %>

<% sql = "select * from sys.all_objects t where owner ='HOMEENT' and object_type ='PROCEDURE' order by object_name" ' response.write(sql) RS.Open sql,dbCon %>

<%=tekst %>


<%=phptekst %>