<%@LANGUAGE="VBSCRIPT"%>
<%
'response.write( request.Servervariables("HTTP_HOST") )
if instr(LCASE(request.Servervariables("HTTP_HOST")),"shareguatemala.org")>0 then
response.Redirect("http://www.asociacionshare.org")
end if
%>
<%Dim page
page=""%>
<%
Dim rs__MMColParam
rs__MMColParam = "1"
if (Request.QueryString("ID") <> "") then rs__MMColParam = Request.QueryString("ID")
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_Connection_STRING
rs.Source = "SELECT * FROM Service1 WHERE (ServiceID="+ Replace(rs__MMColParam, "'", "''") +")"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
page=rs("name")
%>
<%=rs("name")%>
">
">
">
<%
pid=Request.QueryString("ID")
Dim surveyID
Select Case Request.QueryString("ID")
Case "71": surveyID="34"
Case "70": surveyID="35"
Case "69": surveyID="36"
Case "67": surveyID="37"
End Select
%>
<% If surveyID<>"" then %>
<% End if %>
<%
'if pid=125 or pid=41 or pid=42 or pid=43 or pid=12 or pid=44 or pid=45 or pid=46 or pid=47 or pid=51 or pid=48 or pid=49 or pid=50 or pid=126 or pid=127 or pid=128 or pid=128 or pid=130 or pid=132 or pid=133 or pid=137 or pid=52 or pid=139 or pid=135 or pid=134 or pid=131 or pid=105 or pid=142 then
' server.Execute("header.inc.asp")
'elseif pid=124 or pid=59 or pid=60 or pid=61 or pid=62 or pid=63 or pid=64 or pid=65 or pid=66 or pid=67 or pid=68 or pid=69 or pid=70 or pid=122 or pid=123 or pid=71 or pid=72 or pid=73 or pid=74 or pid=75 or pid=76 or pid=77 or pid=78 or pid=79 or pid=80 or pid=81 or pid=82 or pid=83 or pid=84 or pid=85 or pid=86 then
' server.Execute("headerI.inc.asp")
'End If
if pid=142 then response.redirect("http://www.asociacionshare.org/hingresopadrinos.aspx")
server.Execute("header.inc.asp")
%>
<%
'if home
if pid=124 or pid=125 then 'homepage en/es
server.Execute("_mod_home.asp")
elseif pid=51 or pid=59 then
server.Execute("_mod_news.asp")
elseif pid=126 or pid=127 then
server.Execute("_mod_formsponsor.asp")
elseif pid=133 or pid=136 then
server.Execute("_mod_formvoluntariado.asp")
else
%>
<%=rs("name")%>
<%
while not rs.eof
set rshijos = Server.CreateObject("ADODB.Recordset")
rshijos.ActiveConnection = MM_Connection_STRING
rshijos.Source = "SELECT ServiceID FROM Service1 WHERE parent=" & rs("ServiceID") & " ORDER BY Sort_Order ASC"
rshijos.CursorType = 0
rshijos.CursorLocation = 2
rshijos.LockType = 3
rshijos.Open()
mylink=""
if Not rshijos.EOF then
mylink=""
end if
rshijos.close()
set rshijos=Nothing
%>
