Dynamic Dropdown and producing a report

ASP Free Forums Sponsor:

May 21st, 2001, 01:21 AM

Steve Schofield

Contributing User

ASP Free God 20th Plane (14500 - 14999 posts)

Join Date: Dec 2002

Posts: 14,575

Time spent in forums: < 1 sec
Reputation Power: 22

Dynamic Dropdown and producing a report

Originally posted by : V. Vivek (vilsa@hotmail.com) Hi, I'm fairly new to asp, I am currently creating a form in which the fields are filled by selecting from a dropdown menu, whose options have to come from a field in my database (Access) ie. Last Name: the Dropdown menu should list all last names in the field in my db. Secondly, when the form is filled and I hit submit, it shoul create a report made of all the information I submitted ie: Last Name: Vivek First Name: Veena Address: #2001 - Hello Avenue. Is anyone aware of any scripts that can do this? And how do I bind the script to the button? Any help in this would be very much appreciated Veena

May 25th, 2001, 04:15 AM

Steve Schofield

Contributing User

Join Date: Dec 2002

Posts: 14,575

Time spent in forums: < 1 sec
Reputation Power: 22

Originally posted by : Deepak Adke (deepakadke@hotmail.com) Hope the following code will solve u r purpose function createTxtFile() SQL = "" SQL = SQL & "SELECT C.Util_Comp_Name,C.Util_Co_Mailing,C.Util_Co_Stree t,C.Util_Co_Email," SQL = SQL & "C.Util_Co_City,C.Util_Co_State,C.Util_Co_Zip,U.Uti lity_Type_Description," SQL = SQL & "O.Outage_Issue_Description,M.*,D.* " SQL = SQL & "from UTIL_COMPANY_MASTER C,UTILITY_TYPE U,OUTAGE_ISSUE O," SQL = SQL & "OUTAGE_REPORT_MASTER M,OUTAGE_REPORT_DETAIL D where U.Util_Type_Id = M.Util_Type_Id " SQL = SQL & " and O.Outage_Issue_Id = M.Outage_Issue_Id " SQL = SQL & " and M.Outage_No = D.Outage_No and " SQL = SQL & "C.Util_Co_Id = M.Util_Co_Id and ltrim(rtrim(M.Outage_No)) = '" & trim(out_no) & "'" set rsHtml = server.createobject("Adodb.recordset") response.write sql rsHtml.open sql,conn,0,1 if not rsHtml.eof then '****************************** store for further reference --- creating work item ********* utility_desc = rsHtml("Utility_Type_Description") outage_desc = rsHtml("Outage_Issue_Description") GenHtml = "" GenHtml = "<html>" GenHtml = GenHtml & "<head>" GenHtml = GenHtml & "<title>Missouri Public Service Commission</title>" GenHtml = GenHtml & "</head>" GenHtml = GenHtml & "<body>" GenHtml = GenHtml & "Missouri Public Service Commission " GenHtml = GenHtml & "" GenHtml = GenHtml & "<div align='center'>" GenHtml = GenHtml & "<center>" GenHtml = GenHtml & "<table border='0' width='80%'>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Utility Type :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Utility_Type_Description") & "</td>" GenHtml = GenHtml & "<td width='25%'>Outage Issue :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Outage_Issue_Description") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Outage Date :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Outage_Date") & "</td>" GenHtml = GenHtml & "<td width='25%'>Reporting Date :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Outage_Date") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Outage Time :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Outage_Date") & "</td>" GenHtml = GenHtml & "<td width='25%'>Reporting Time :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Rpt_Date") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & " <tr>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Utility Company :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Util_Comp_Name") & "</td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>City Affected :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("City_Affected") & "</td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Location Affected :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Location_Affected") & "</td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>County Affected :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("County_Affected") & "</td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Reporting Party </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'>Contact Name</td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>First Name :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Rpt_First_Name") & "</td>" GenHtml = GenHtml & "<td width='25%'>First Name</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Cont_First_Name") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Middle Initial :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Rpt_Middle_Initial") & "</td>" GenHtml = GenHtml & "<td width='25%'>Middle Initial :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Cont_Middle_Initial") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Last Name :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Rpt_Last_Name") & "</td>" GenHtml = GenHtml & "<td width='25%'>Last Name</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Cont_Last_Name") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Phone No. :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Rpt_Tel") & "</td>" GenHtml = GenHtml & "<td width='25%'>Phone/Cellular :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Cont_Tel") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Email :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Rpt_Email") & "</td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'></td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "<td width='25%'> </td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='50%' colspan='2' align='center' >Outage Description :</td>" GenHtml = GenHtml & "<td width='25%'>Customer Affected :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Outage_Description") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='50%' colspan='2' rowspan='2' >" & rsHtml("Exp_Date_Restoral") & "</td>" GenHtml = GenHtml & "<td width='25%'>Restoration Date :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Exp_Date_Restoral") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "<tr>" GenHtml = GenHtml & "<td width='25%'>Restoration Time :</td>" GenHtml = GenHtml & "<td width='25%'>" & rsHtml("Exp_Time_Restoral") & "</td>" GenHtml = GenHtml & "</tr>" GenHtml = GenHtml & "</table>" GenHtml = GenHtml & "</center>" GenHtml = GenHtml & "</div>" GenHtml = GenHtml & "</body>" GenHtml = GenHtml & "</html>" end if '*************** generate ramdom number for naming ..html file ************************ FileName = datepart("yyyy",now()) & datepart("m",now()) & datepart("d",now()) & datepart("h",now()) & datepart("n",now()) & datepart("s",now()) dim fs set fs=CreateObject("Scripting.FileSystemObject") path = server.mappath("..") & "TEMP_Documents"" & FileName & ".html" set file1=fs.CreateTextFile(path) file1.writeline(GenHtml) set fs = nothing set file1 = nothing response.write "HTML file created" '************ Send mail ************************************************** ************ if rsHtml("report_type") = 1 then reporttype = "Outage" else reporttype = "Incident" end if if rsHtml("Outage_Am_Pm") = 1 then AmPM = "AM" else AmPm = "PM" end if end function ------------ V. Vivek at 5/20/2001 11:21:52 PM Hi, I'm fairly new to asp, I am currently creating a form in which the fields are filled by selecting from a dropdown menu, whose options have to come from a field in my database (Access) ie. Last Name: the Dropdown menu should list all last names in the field in my db. Secondly, when the form is filled and I hit submit, it shoul create a report made of all the information I submitted ie: Last Name: Vivek First Name: Veena Address: #2001 - Hello Avenue. Is anyone aware of any scripts that can do this? And how do I bind the script to the button? Any help in this would be very much appreciated Veena

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: