<%@language="VBScript"%> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% on error resume next 'Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") 'if err.number <> 0 then 'response.write "XMLHTTP ""Set objXMLHTTP = CreateObject(""Microsoft.XMLHTTP"")"" chyba
" 'else 'response.write "XMLHTTP ""Set objXMLHTTP = CreateObject(""Microsoft.XMLHTTP"")"" ok
" 'end if 'set objXMLHTTP = nothing 'err.clear Set imageobj = Server.CreateObject( "JMail.Message") if err.number <> 0 then response.write "JMail ""Set imageobj = Server.CreateObject( ""JMail.Message"")"" chyba
" else response.write "JMail ""Set imageobj = Server.CreateObject( ""JMail.Message"")"" ok
" end if set imageobj = nothing err.clear Set imageobj = Server.CreateObject("w3Image.Image") if err.number <> 0 then response.write "w3Image ""Set imageobj = Server.CreateObject( ""w3Image.Image"")"" chyba
" else response.write "w3Image ""Set imageobj = Server.CreateObject( ""w3Image.Image"")"" ok
" end if set imageobj = nothing err.clear Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") if err.number <> 0 then response.write "aspSmartUpload ""Set mySmartUpload = Server.CreateObject(""aspSmartUpload.SmartUpload"")"" chyba
" else response.write "aspSmartUpload ""Set mySmartUpload = Server.CreateObject(""aspSmartUpload.SmartUpload"")"" ok; TotalMaxFileSize = " & mySmartUpload.TotalMaxFileSize & "; MaxFileSize = " & mySmartUpload.MaxFileSize & "
" end if set mySmartUpload = nothing err.clear 'Set Jpeg = Server.CreateObject("Persits.Jpeg") 'if err.number <> 0 then 'response.write "Persits JPEG ""Set Jpeg = Server.CreateObject(""Persits.Jpeg"")"" chyba
" 'else 'response.write "Persits JPEG ""Set Jpeg = Server.CreateObject(""Persits.Jpeg"")"" ok
" 'end if 'set Jpeg = nothing 'err.clear set xml2 = Server.CreateObject("Chilkat_9_5_0.Email") if err.number <> 0 then response.write "Chilkat ""Set xml2 = Server.CreateObject(""Chilkat_9_5_0.Email"")"" chyba
" else response.write "Chilkat ""Set xml2 = Server.CreateObject(""Chilkat_9_5_0.Email"")"" ok
" end if set xml2 = nothing err.clear 'Set ASPImage = CreateObject("ASPImage.WebImage") 'if err.number <> 0 then 'response.write "ASPImage ""Set obj = CreateObject(""ASPImage.WebImage"")"" chyba
" 'else 'response.write "ASPImage ""Set obj = CreateObject(""ASPImage.WebImage"")"" ok
" 'end if 'set ASPImage = nothing 'err.clear %>