<% Set RS = Server.CreateObject("ADODB.Recordset") Set RS2 = Server.CreateObject("ADODB.Recordset") EventID = request("EventID") CalendarID = request("CalendarID") StyleID = request("StyleID") thisMonth = request("thisMonth") thisYear = request("thisYear") thisDay = request("thisDay") SQL = "SELECT * FROM o12calgold_Calendars WHERE CalendarID = " & CalendarID RS.Open SQL, Conn, 1, 3 calendarName = RS("calendarName") RS.Close If request("Page") = "2" Then SQL = "SELECT * FROM o12calgold_Users WHERE Email = '" & request("Email") & "'" RS.Open SQL, Conn, 2, 2 If NOT RS.EOF Then SQL2 = "SELECT * FROM o12calgold_Calendars WHERE CalendarID = " & request("CalendarID") RS2.Open SQL2, Conn, 2, 2 thisBody = Replace(RS2("RequestEmail"),"[username]",RS("Username")) thisBody = Replace(thisBody,"[password]",RS("Password")) sendThis = sendMail(request("Email"), RSBODY("ReturnEmail"), RSBODY("MailComponent"), RSBODY("SMTPServer"), thisBody, "Requested Login Informtion") RS2.Close End If RS.Close Response.redirect "request.asp?Page=3&CalendarID=" & CalendarID & "&StyleID=" & StyleID End If %> <% ' Get CSS SQL = "SELECT * FROM o12calgold_Styles WHERE StyleID = " & StyleID RS.Open SQL, Conn, 1, 3 %> <% Header = RS("Header") Footer = RS("Footer") DisplayWidth = RS("DisplayWidth") Color_Border = RS("Color_Border") RS.Close %> <%If request("Window") = "Same" Then%> <%=Header%> <%End If%>

Request Password <%If request("Page") = "3" Then%>Your login information has been emailed to you. Click here to return.<%Else%> <%If Len(Trim(request("Error"))) > 0 Then%> <%End If%> The email address you entered is not in our system. Email " size="12"> <%End If%>

<%If request("Window") = "Same" Then%> <%=Footer%> <%End If%>