AQUI LA CONTINUACION
Function getModules(intColumnID)
strSQL = "SELECT " & strDBTable & "Modules.*" &_
" FROM " & strDBTable & "Modules" &_
" WHERE " & strDBTable & "Modules.ColumnToAppearIn=" & intColumnID & " AND " & strDBTable & "Modules.Module_Type=1" &_
" ORDER BY OrderToShow;"
rsModules.CursorType = 1
rsModules.Open strSQL, adoCon
'rsModules.requery
intNumOfModules = rsModules.RecordCount
intNumRows = 1
Do While Not rsModules.EOF
Response.write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""1"" bgcolor=""" & strTableBorderColour & """ align=""center"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td><table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" bgcolor=""" & strTableBgColour & """>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td bgcolor=""" & strTableTitleColour2 & """ class=""tiHeading"" background=""" & strTableTitleBgImage2 & """><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td class=""tiHeading"" style=""padding:0px;"">" & rsModules("Module_name") & "</td>" & vbNewline)
Response.write("<td align=""right"">" & vbNewline)
If rsModules("showToggle") Then
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=ht""><img src=""" & strWebSiteUrl & "images/showToggle-on.gif"" width=""23"" height=""17"" alt=""" & strTxtDisable & " " & strTxtToggler & """ border=""0"" /></a>" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=st""><img src=""" & strWebSiteUrl & "images/showToggle-off.gif"" width=""23"" height=""17"" alt=""" & strTxtEnable & " " & strTxtToggler & """ border=""0"" /></a>" & vbNewline)
End If
response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table></td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td bgcolor=""" & strTableColour & """ background=""" & strTableBgImage & """ class=""smText"" valign=""top""><table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""96%"">" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intColumnID = 1 Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowLeft-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & " " & strTxtMove & " " & strTxtLeft & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=l""><img src=""" & strWebSiteUrl & "images/arrowLeft.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & " " & strTxtLeft & """ border=""0"" /></a>" & vbNewline)
End If
response.write("</td>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intNumRows = 1 Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowUp-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & " " & strTxtMove & " " & strTxtUp & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=u""><img src=""" & strWebSiteUrl & "images/arrowUp.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & " " & strTxtUp & """ border=""0"" /></a>" & vbNewline)
End If
Response.write("</td>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intNumRows = intNumOfModules Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowDown-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & " " & strTxtMove & " " & strTxtDown & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=d""><img src=""" & strWebSiteUrl & "images/arrowDown.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & " " & strTxtDown & """ border=""0"" /></a>" & vbNewline)
End If
response.write("</td>" & vbNewline)
Response.write("<td align=""center"" class=""smText"" width=""16%"">" & vbNewline)
If intColumnID = 3 Then
Response.write("<img src=""" & strWebSiteUrl & "images/arrowRight-off.gif"" width=""17"" height=""17"" alt=""" & strTxtCant & " " & strTxtMove & " " & strTxtRight & """ border=""0"" />" & vbNewline)
Else
Response.write("<a href=""portal_mgmt_layout.asp?m=" & rsModules("Module_ID") & "&c=" & rsModules("ColumnToAppearIn") & "&o=" & rsModules("OrderToShow") & "&a=r""><img src=""" & strWebSiteUrl & "images/arrowRight.gif"" width=""17"" height=""17"" alt=""" & strTxtMove & " " & strTxtRight & """ border=""0"" /></a>" & vbNewline)
End If
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
Response.write("</td>" & vbNewline)
Response.write("</tr>" & vbNewline)
Response.write("</table>" & vbNewline)
response.write("<br />" & vbNewline)
intNumRows = intNumRows + 1
rsModules.MoveNext
Loop
closeRS(rsModules)
End Function
response.write "<html>" & vbcrlf
response.write "<head>" & vbcrlf
response.write "<title>" & strWebsiteName & "</title>" & vbcrlf
%>
<script language="JavaScript">
function stringFilter(input) {
s = input.value;
filteredValues = " `~!@#$%^&*()=[]{};:',./\|<>"; // Characters stripped out
var i;
var returnString = "";
for (i = 0; i < s.length; i++) { // Search through string and append to unfiltered values to returnString.
var c = s.charAt(i);
if (filteredValues.indexOf(c) == -1) {
returnString += c }
else {
returnString += "_";
}
}
input.value = returnString;
}
function validateForm(formName){
var objRegExp =/\W/;
var modname = trimAll(formName.Module_name.value);
var checkmodname = objRegExp.test(modname)
var errorMsg = "";
if (modname.length == 0) {
errorMsg += "<%=strModMngmtNameBlank%>";
}
else if (checkmodname) {
errorMsg += "<%=strModMngmtNameInvalid%>";
}
if (errorMsg != "") {
msg = "<% = strTxtErrorDisplayLine %>\n\n";
msg += "<% = strTxtErrorDisplayLine1 %>\n";
msg += "<% = strTxtErrorDisplayLine2 %>\n";
msg += "<% = strTxtErrorDisplayLine %>\n\n";
msg += "<% = strTxtErrorDisplayLine3 %>\n";
errorMsg += alert(msg + errorMsg);
formName.Module_name.focus();
return false;
}
return true;
}
// End -->
</script>
<!--#include file="forum/includes/soop/header_admin.asp" -->
<!--#include file="forum/language_files/soop/soop_admin_language_file.asp" -->
<%
response.write "<table width=""" & strTableVariableWidth & """ border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbcrlf
response.write "<tr>" & vbcrlf
response.write "<td width=""" & intPortal_col1_width & """ valign=""top""> "
ArrangeColumn(1)
response.write "</td>" & vbcrlf
response.write "<td width=""" & intPortal_col1s_width & """> </td>" & vbcrlf
response.write "<td width=""" & intportal_col2_2col_width & """ valign=""top""> " & vbcrlf
%><!-- #include file="forum/includes/soop/portal_admin_top.asp" --><%
response.write "<br />"
Set Module_Box = New ModBox_Class
Module_Box.box_toggle = False
Module_Box.box_title_text = strTxtModManager
Module_Box.printBoxTop
Module_Box.printBoxLeftSide
Module_Box.printBoxToggle
Response.write("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" bgcolor=""" & strTableBgColour & """>" & vbNewline)
Response.write("<tr>" & vbNewline)
Response.write("<td class=""smText"" bgcolor=""" & strTableColour & """ ><img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowLeft.gif"" width=""17"" height=""17"" border=""0"" /> " & strTxtModMoveLeft & " <img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowRight.gif"" width=""17"" height=""17"" border=""0"" /> " & strTxtModMoveRight & "<br />" & vbNewline)
Response.write("<img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowUp.gif"" width=""17"" height=""17"" border=""0"" /> " & strTxtModMoveUp & " <img alt=""]"" align=""absmiddle"" src=""" & strWebSiteUrl & "images/arrowDown.gif"" width=""17"" height=""17"" border=""0"" /> " & strTxtModMoveDown & "<br />" & vbNewline)