<% Dim Server_Name, Server_IP Dim wcs, MySQL, PHP, FP2002, FP2000, CGI 'Set wcs = Server.CreateObject("webcresiterdll.SetOptions") ' PHP = wcs.Option_PHP() ' CGI = wcs.Option_CGI() ' FP2002 = wcs.Option_FP2002() ' FP2000 = wcs.Option_FP2000() ' Server_IP = wcs.Get_IP() 'Set wcs = Nothing %> //*************************************************************** // // Här börjar koden // //*************************************************************** //********************************************************** // // Här slutar koden // //********************************************************** <% Dim paket, listpaket 'Set wcs = Server.CreateObject("webcresiterdll.Webpackets") 'paket = wcs.Get_WebPackets(CInt(Session("userID")), Session("userAccess")) 'If IsArray(paket) Then ' For i = 0 To Ubound(paket, 2) ' listpaket = listpaket & ""& paket(1,i) &"" ' Next 'End If 'Set wcs = Nothing %>

<% If Not Request.QueryString("alias") <> "" Then %> <% End If %> <% If Request.QueryString("alias")<>"" Then %> <% End If %>   Create new website  Webpacket: -- Choose webpacket -- FooFaa <%=listpaket%>  Domain name: "> ERROR: The alias "<%= Request.QueryString("alias")%>" exists! Please remove it or change it!  Alias: ">  Limit domains: ">  Limit subdomains: ">  Disk quota: "> MB   IIS and folders: > No  Users: ">    Mail quota: "> MB  MySQL-accounts: ">  Bandwidth limit "> Kb/s   IP: <% Dim ipt, i Response.Write "All Unassigned" If InStr(Server_IP, ";")>0 Then ipt = Split(Server_IP, ";") For i = 0 To Ubound(ipt) Response.Write ""& ipt(i) &"" Next Else Response.Write ""& Server_IP &"" End If %>  Allow Anonymous: > No      > Yes  Access Permissions: > Read  > Script   > Write > Execute > Browse Dir  Statisics > Create statistics  Extensions: <% If FP2002 = True Or FP2000 = True Then %> > FrontPage <% End If %> <% If PHP = True Then %> > PHP <% End If %> <% If CGI = True Then %> > Cgi-bin <% End If %> > WAP

<% ' Remove sessions ' Session.Contents.Remove("Domain_Name") ' Session.Contents.Remove("Hostheader") ' Session.Contents.Remove("IP") ' Session.Contents.Remove("Anonymous") ' Session.Contents.Remove("AP_Frontpage") ' Session.Contents.Remove("AP_Read") ' Session.Contents.Remove("AP_Script") ' Session.Contents.Remove("AP_Write") ' Session.Contents.Remove("AP_Execute") ' Session.Contents.Remove("AP_Browse") ' Session.Contents.Remove("AP_PHP") ' Session.Contents.Remove("AP_CGI") ' Session.Contents.Remove("AP_Wap") ' Session.Contents.Remove("DiskQuota") ' Session.Contents.Remove("Bandwidth") ' Session.Contents.Remove("Users") ' Session.Contents.Remove("MailQuota") ' Session.Contents.Remove("DomainLimit") ' Session.Contents.Remove("subDomainLimit") ' Session.Contents.Remove("MySQL") ' Session.Contents.Remove("Statistics") ' Session.Contents.Remove("NoIIS") %>