Get first day of week?

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ ASP Server
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - how to keep from displaying repeating rows I tried posting this to the SQL Server programming group, but then thought more about it, and thought it was more of an ASP question. If you want the original long description, it's below. But the short version is, I have created a new table to resolve a many-to-many relationship in my tech support ticket-tracking app. When I do a query which should yield me several tickets, it gives me more than one row of the same ticket if that ticket happens to have more than one row in the new table I just mentioned. I'd like it to only give me one, but apparently, that isn't going to happen. So my ASP question is, how can I tell it not do display a row from the recordset if there is already a row with that same ticket number? Here's the long version, posted on the SQL group. ============================================================= First, here's the query: SELECT T.TKT_TICKETID, T.Orig_Source,T.Contact_CustID,T.orig_CustID AS OrigCust, T.Orig_TimeStamp, T.Actual_TimeStamp, MAX(H.TIMESTMP)AS HistTime,T.BriefDesc, T.LongDesc,T.InternalDesc,T.Environment,T.AssignedEmployee,T.StatusID,T.Curr ent_Source, T.CustomerCode AS CustCode,T.DefectNum,E.FirstName, E.LastName, S.Description, S.NameShort AS StatusShort,ISNULL(CU.CustomerName, 'ARGO') AS CustomerName, ISNULL(CU.NameShort, 'ARGO') AS NameShort,T.LastModified,T.CustTicketID, TA.EmployeeID AS AssistID FROM dbo.TKT_TICKET T INNER JOIN dbo.EMPLOYEE E ON T.AssignedEmployee = E.EmployeeID LEFT OUTER JOIN dbo.TKT_ASSIST TA ON T.TKT_TicketID = TA.TicketID INNER JOIN dbo.TKT_STATUS S ON T.StatusID = S.StatusID LEFT OUTER JOIN dbo.CUSTOMER CU ON CU.CustomerCode = T.CustomerCode LEFT OUTER JOIN dbo.TKT_HISTORY H ON T.TKT_TICKETID = H.TICKETID WHERE T.StatusID IN ('2','3','4','5','6','7') AND T.AssignedEmployee = '200' GROUP BY T.TKT_TICKETID, T.Orig_Source, T.Contact_CustID,T.Orig_CustID, T.Orig_TimeStamp, T.Actual_TimeStamp,T.ADSVersion,T.BriefDesc,T.LongDesc, T.Environment, T.AssignedEmployee, T.StatusID,T.Current_Source,T.InternalDesc, T.orig_CustID,T.Current_Source,T.CustomerCode,T.LastModified,T.CustTicketID, T.DefectNum,E.FirstName, E.LastName, S.Description,S.NameShort,CU.CustomerName, CU.NameShort, TA.EmployeeID ORDER BY Orig_TimeStamp ===================================== Problem Description: As you can see, TKT_Ticket is the main table. I just created a table called TKT_ASSIST, and it only has the ticket id plus the employee id, since there can be more than one employee per ticket, and more than one ticket per employee. I then added to the existing query the last item you see in the select part, "TA.EmployeeID AS AssistID(plus the matching part in the GROUP BY)" and then there's a join for the 2 tables. The problem is, when it is run, the query yields more than one row per ticket, if that ticket happens to have more than one row in the TKT_Assist table. In other words, the Assist table was put there to resolve a many-to-many relationship, but it is still showing me "many" rows of tickets when one will do. Here's what is returned (with some stuff smipped for brevity): 15882 03/15/2004 Test ARGO RSCH Possible Memory Leak in Testing Environment 15913 03/18/2004 Prod CUST RSCH Share Pool errors experienced after converting from NT to W2000 15998 04/02/2004 Train CUST RSCH HTTP Post Communication Error 15998 04/02/2004 Train CUST RSCH HTTP Post Communication Error Note that Ticket 15998 is there twice. Sure enough, when I go into the Assist table, that's the only one with two rows, i.e. two employees attached to it. So what adjustments do I need to make to the SQL statement to cause it to return only one row per ticket? I tried putting the word DISTINCT right after the word SElECT, but that didn't chagne anything. I changed the INNER JOIN to an outer one, but that just kept some other tickets off of the list, and ticket 15998 still showed up twice. Tag: Get first day of week? Tag: 292483
  - 2
    - Page Load Event Is there an event that signifies the end of a page load? Tag: Get first day of week? Tag: 292482
  - 3
    - Short date problem with ASP Hi I am in the process of moving my website from NT4/IIS4 to Windows 2003. Both server are set to a short date format of (dd/mm/yy) however the Windows 2003 server appears to be ignoring this and continues to display dates in asp pages as dd/mm/yyyy. Is there a setting in Windows 2003 that I am missing? Thanks Stephen Tag: Get first day of week? Tag: 292480
  - 4
    - CreateObject error I've got an asp page using CDONTS for mail. It's running on an NT4 server with the latest updates. I don't have any problems with the page except I want to convert it to a vbscript (.vbs) file so that I can schedule it to run with Task Scheduler. So the original page works fine. I've copied the page code and edited it to scripting standards and saved it as a .vbs file. It's on the same server as the original asp page. But I get this error when it runs: ActiveX component can't create object: 'CDONTS.NewMail' I launch it thru a mapped drive on my local machine and a double click. I've searched the www high and low and can't find any solution that works - or makes sense to me. Any help is appreciated. Tag: Get first day of week? Tag: 292479
  - 5
    - ASP UPDate database looping through form fields Hi, I have a small online survey in two parts designed to allow users to rank a few organisations that they have dealings with from a large list of organisations. I want the users to be able to rank a number of organisations at the same time rather than going through a form for each one. At the moment the survey has two pages. The first page allows the user to select a number of organisations from the list. This selection is saved in a table in an Access database with five fields: ID, User, Organisation and Ranking. The second page loops through the data from the database selected by user and presents the list of organisations in a table with a row for each record. The table has a ranking field for each organisation. The user enters numeric data in this field to rank the organisation. So far so good. Where I am having problems is in updating the database with the data from the form. What I need to do is loop through each line of the table on the form, select the record from the database, update it and then move to the next item. The form has a field for each record with the same name so using Request.Form("FieldName") to grab the data from the form doesn't seem to work. I am sure that there must be a way of achieving what I want do: but I can't get it. I'd appreciate any suggestions or pointers. Thanks in advance for any help. Regards Emmett Power Tag: Get first day of week? Tag: 292472
  - 6
    - anyone got a good resource for time management anyone know a good resource that will help me work out a process for accurateley costing out / setting timescales for a development project. mark Tag: Get first day of week? Tag: 292469
  - 7
    - Problems with Payflow Pro object (PFProCOMControl.PFProCOMControl.1) Anyone worked with Verisign's Payflow Pro object in ASP? We've had it up and running for weeks without a problem and recently we've started to get some undesirable behavior: at the point where the component sends the transaction data, about 1 in 4 times it will go through, but otherwise it will sit and spin until the script or the browser session times out. may or may not be related to a server maintenance change. I'm not a server admin guy, so I don't know specifically what to look for, but can anyone tell me what I should ask our server admin guy to look for? Could there be something with COM threading or other issues where multiple instances of this object are being run? Is there a place on the server where a person can look and see what's going on with this object? Here's the code with some info removed... I've marked where it usually locks or spins: *************************** Set client = Server.CreateObject("PFProCOMControl.PFProCOMControl.1") 'Transaction through Verisign parmList = "TRXTYPE=S&TENDER=C&PARTNER=VeriSign&VENDOR=XXXXXXX&USER=XXXXXXX&PWD=XXXXXXX&ACCT=4111111111111111&EXPDATE=0405&AMT=0.01" Ctx1 = client.CreateContext("test-payflow.verisign.com", 443, 30, "", 0, "", "") 'this next line is what locks up the object or goes into a loop curString = client.SubmitTransaction(Ctx1, parmList, Len(parmList)) client.DestroyContext (Ctx1) set Ctx1 = nothing set client = nothing *************************** Thanks for your help. Tag: Get first day of week? Tag: 292467
  - 8
    - Size of a file Hi - given a filename on the server, how would you use the filesystem object to determine its size? Thanks, *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Get first day of week? Tag: 292465
  - 9
    - asp submitted to process asp;but calling asp page says:"Page not found" aftr 1hr Hi all, I have an user.asp page(has html display) which displays the controls; After client-side validations, I do a document.form.submit() to a process asp page(no html, only server side processing and then redirects to the user.asp). This process asp calls some dll functions which might take a couple of hours if number of records to process is huge. Now, the dll opens a pop-up window which shows the status of the results(number of records processed and failed). After exactly 1 hour, the user.asp page says page cannot be found. Is it due to some timeout or something? What could be the reason? Tag: Get first day of week? Tag: 292462
  - 10
    - IIS hangs itself We have an application which uses Crystal Reports, FireBird and dynamic views to display reports. When in a short period of time a lot of reports are displayed IIS hangs. Stopping and starting IIS does not help. The only solution to get IIS working again is a reboot. One time I got a message that there are to many users. But only once. All the other times it just hangs. The to many users I do not understand, because at the moment I am the only one using (testing) the application. Anyone an idea what could be the problem and how to solve it? Tag: Get first day of week? Tag: 292457
  - 11
    - Is it possible to change global.asa from asp With global.asa application variables can be set. Later can a script in your application change the value of those variables. But when IIS is restarted the old values are used again. Is there a way to get the changes that are done into global.asa? Tag: Get first day of week? Tag: 292456
  - 12
    - Type Mismatch woes! Hi all, I've thrown together a simple shoppng cart and basket, but I occasionally get a type mismatch error on the basket. For example: Microsoft VBScript runtime error '800a000d' Type mismatch: '[string: "2.501.00"]' There doesn't seem to be any pattern to it and I can't figure it out at all, I was hoping someone could help! My code: <% dim customerid dim price dim shipping dim grandtotal grandtotal = 0 shipping = 0 price = 0 customerid = session("id") if customerid = "" THEN Response.write "Your basket is empty" Response.write "<br>" Else Set conn = Server.CreateObject("ADODB.Connection") connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/data.mdb") Conn.Open connStr Set Session("myConn") = conn strSQLQuery = "SELECT * FROM basket WHERE Customerid = '" & customerid & "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQLQuery, conn, 3, 3 do until rs.eof price = 0 price = rs("price") + rs("shipping") price = price * rs("qty") %> <tr> <td width="47%""><%=rs("title1")%> </td> <td width="11%"><%=rs("Qty")%> </td> <td width="8%">£<%=rs("price")%> </td> </tr> <% grandtotal = grandtotal + total shipping = shipping + rs("shipping") rs.movenext loop rs.Filter = 0 conn.close Set conn = Nothing grandtotal = round(grandtotal,2) %> Many thanks! Tom Tag: Get first day of week? Tag: 292453
  - 13
    - ASP Hyperlink problem with FP2003 I've got a Database Results Wizard form with a hyperlink which passes data onto the next page. I wish to send two pieces of data along this link. The first item is from within the DRW data, so I can easily set this up using hyperlink parameters. However the second piece of data is not within the DRW, so when I use the hyperlink parameters it doesn't allow me to use it because it is not in the Name dropdown when I use Add in the hyperlink parameters dialog. Anyone know how I can achieve this? Ray Tag: Get first day of week? Tag: 292452
  - 14
    - asp, mysql and myodbc driver hi I want to install mysql odbc driver 3.51 and downloaded MyODBC-3.51.06-dll.zip from the mysql.com. but when i unzipped it, it shows only dll file.. I m very confused how to install odbc driver? would i need to install whole mysql as well or i can just install myodbc driver? I just wanted to create DSN to remote server.. I'm using windows xp Any help would be appreciated.. thanx... dave Tag: Get first day of week? Tag: 292450
  - 15
    - why adodb.strem downloding works for everything but self extracting files? hi, Can anyone tell me what the problem is and how to solve it The following piece of code resides on an asp page on the server and is used to download files from the server to the machine accessing the abobe mentioned asp page. It WORKS for every type of file when I change the content type according to the file type, but it won't work with self extracting files. When an end user downloads a self extracting file by accessing the code, the whole file is downloaded on its entire size, but trying to run the self extracting file by double clicking on it yields a momentary DOS-like black screen and not what is expected -- that the file start running by unzipping itslef and then executing some setup or install file. Further more, as something that migh give the experts of you a hint, even though the file is downloaded on all its bytes, the icon associated with the file on the server DOES NOT appear with the downloaded file. Response.ContentType ="Application/exe" Response.AddHeader "Content-Disposition:","attachment;filename=myselfextrct.exe" Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = 1 objStream.LoadFromFile "c:\myselfextrct.exe" Response.BinaryWrite objStream.Read() objStream.Close set objStream = Nothing Set objFile = Nothing thanks Avi Tag: Get first day of week? Tag: 292445
  - 16
    - IsNumeric problem.... Anyone have any why the following, returns true? '// Leave everything after the ? strTemp = StripQStr("/?DD0898SDFSDFSD89Q2ASD8822") If IsNumeric(StrTemp) Then Response.Write strTemp & " is numeric" else Response.Write strTemp & " is not numeric" end if '// Function to strip everything upto and including the "?" '// and return only the string after it. Function StripQStr(strVal) Dim path path = Split(strVal, "?") StripQStr = path(UBound(path)) End Function -- Regards Steven Burn Ur I.T. Mate Group www.it-mate.co.uk Keeping it FREE! Tag: Get first day of week? Tag: 292434
  - 17
    - request object and server .transfer is there a way to clear out the request.form collection, or the entire request object, for that matter?? im using server.transfer and this can be troublesome in cases where you need the request.form items to be reset. tia jt Tag: Get first day of week? Tag: 292430
  - 18
    - modifying code-need some help I am modifying someone else's code and need help with an array: Can someone explain to me what this is doing? PedArray = Split(T_ped,CHR(13)) I know this is creating an array and splitting the t_ped text at the CHR(13). What is this next step? Sire_1 = Trim(mid(PedArray(5),21,52-21)) Is that "Look at the 5th split", starting at character 21? What is the 52-21? If t_ped =*Nasrullah 40 Bold Ruler 54 Boldnesian 63 Miss Disco 44 Polynesian 42 Alanesian 54 Bold Reasoning Alablue 45 (1968) *Turn-To 51 Hail To Reason 58 Sire 1 is being displayed as Alanesian5 IS that correct? -- Joey Martin, President Infosmiths www.infosmiths.net 502-633-3428 Tag: Get first day of week? Tag: 292424
  - 19
    - ASP, SQL books Being a beginner at ASP and SQL Im constantly looking for new resources of information that I will be able to learn from, what are some of the good books/websites that you guys use? So far I have: 1)SAMS Teach Yourself SQL in 21 days 2)ASP Programmer for the absolute programmer 3)Dreamweaver MX 2004 with asp, coldfucion and php training from the source 4)Designing with Web Standards 5)Beginning Active Server Pages 3.0 (wrox) I think all of these are great books (except for 2, it's to basic); are there any books that you thought were great/useful? -=Ben -=To email me take out the joke. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Get first day of week? Tag: 292423
  - 20
    - HELP! Trying to use ASP on my local machine. I'm not a networking/IT guy, but I was put in charge of figuring out how to use ASP to tap into an Oracle db for my office. I am using a windows 2000 laptop, and I want to be able to run ASP code on my local desktop (without being plugged into a network). I need a lot of help here. I know I have to turn my computer into a webserver, but I'm not certain what I need to do with the IIS. What do I need to do in general to make my computer a webserver? In addition, I will be using a local Oracle database. So I wasn't sure what I would need to do to make that db available for querying with ASP. What is the best way to make that connection? Anyone who can point me to useful documentation would be much appreciated. Thanks! Tag: Get first day of week? Tag: 292419
  - 21
    - How to add click function to a dynamically created Button in WebForm I am trying to create a bookstore WebApplication using c#. I can display the books (obtained from sql server) on a table in a WebForm. At the end of each row, I would like to add "add to cart" button. Therefore, I use Button bt_add = new Button(); bt_add.Text = "Add to cart"; and put it in a cell which is later placed in each table row. The Buttons display fine on the WebForm. However, I don't know how to add the Button_Click function for each of the Button I created since I don't know the total number of books in advance. Can anyone help me get "add to cart" button to work? Note: I try clicking on each Button, the WebForm page loads back to its original stage (Page_Load function) and my search result is gone. Thanks, Tag: Get first day of week? Tag: 292417
  - 22
    - Revisiting an old friend: Set oRS = Nothing Last September, some of us engaged in a discussion of freeing resources in ASP scripts written in JScript. It can be seen here: http://tinyurl.com/2flzt I recently read Eric Lippert's article on the use of *Nothing* assignments in VB (http://blogs.msdn.com/ericlippert/archive/2004/04/28/122259.aspx) right before going out of scope, and was shocked by what he had to say, and I must say it has me curious about the implications for ASP, whether written in JScript or VBScript. Like Lippert, I have seen a lot of documentation/advice that suggests a need for such assignments, but little empirical evidence that it matters. I do not mean to suggest that *Nothing* assignments are NEVER required, I simply wonder if anyone has bothered to check if it still matters with recent generations of IIS and such common tools as ADO or CDO. Comments? -- Dave Anderson Unsolicited commercial email will be read at a cost of $500 per message. Use of this email address implies consent to these terms. Please do not contact me directly or ask me to contact you directly for assistance. If your question is worth asking, it's worth posting. Tag: Get first day of week? Tag: 292415
  - 23
    - Do While not Statement I have two 'Do While Not' statements, that are getting information from the same recordset. If I comment out the first one I can get the results for the second one, and vice-versa. Why is this happening? Is it because it's already at the EOF? If so how do I get it back to the BOF for the 2nd 'Do While Not' statement? '---------------------------------------- 'Create an ADO recordset object Set rs_Report = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT gender, referral, youthmember, age FROM tblUsers WHERE base = '" + Replace(chosenBase, "'", "''") + "'" 'Open the recordset with the SQL query rs_Report.Open strSQL, adoCon '-----Gets the total number of male and female users intMale = 0 intFemale = 0 Do While NOT rs_Report.EOF If rs_Report("gender") = "male" then intMale = intMale + 1 Else intFemale = intFemale + 1 End If rs_Report.MoveNext() Loop '-----Figures out how they heard about the program Do While NOT rs_Report.EOF If rs_Report("referral") = "Base Paper" then intBasePaper = intBasePaper + 1 End IF rs_Report.MoveNext() Loop ---------------------------------------------- --Sample Output-- Male = 11 Female = 4 Base Paper =__ "nothing is returned here" ---------------------------------------------- Like I said before If I comment out the first do while not statement I can get the answers for the second one. If I don't it doesn't even get inside of the second do while not statement. I know I can fix it by just having a seperate SQL statement to the database and get my information seperately, but it seems like a waste of time. Thanks for any help. -=Ben -=To email me take out the joke. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Get first day of week? Tag: 292407
  - 24
    - Trouble with Request.Form Plus Upload I have a form that passes variables to an asp file and then uploads a file. For some reason the request.form is not getting the info from the form. It's returning blanks. Any insight would be appreciated.... Here is the asp file <HTML> <HEAD> <TITLE>File Upload Results</TITLE> <BODY> <font color=#000000><b>Files Uploaded Status:</b></font><br><br> <% Set Upload = server.createObject("Chili.Upload.1") Upload.AllowOverwrite = True ' Generate unique names 'Upload.SizeLimit = 150000 ' Truncate files above 50KB On Error Resume Next MyArray = Split(Upload.SourceFileName, "\") FName = MyArray(UBound(MyArray)) If Upload.SourceFileExtension = ".pdf" or Upload.SourceFileExtension = ".zip" Then If Upload.FileSize< 3000000 Then UpldAllowed=True Else UpldAllowed=False End If Else UpldAllowed=False End If If Upload.SourceFileExtension = ".gif" or Upload.SourceFileExtension or ".jpg" or Upload.SourceFileExtension or ".png" Then If Upload.FileSize< 150000 Then UpldAllowed=True Else UpldAllowed=False End If Else UpldAllowed=False End If If UpldAllowed=False Then Response.Write "<font color=red><b>Your file is either of an disallowed type or is too large. Please <a href=upload.asp>try again</a></b></font><br>" Else Upload.SaveToFile(Server.mapPath("/") & "/" & "/iparttest/upload/" & FName) Response.Write "<font color=#000000><b>File: </b></font>" & Upload.SourceFileName & " <font color=#009900><b>--Size:" & Upload.FileSize &" Bytes -- </b></font> <a target=_blank href=http://www.sdotson.com/iparttest/upload/" & FName & ">Click to Test</a><br>" Response.Write "<br>Copy and paste the following to use your image/file in the forum:<br><br>" If Upload.SourceFileExtension = ".pdf" or Upload.SourceFileExtension = ".zip" then Response.Write "<b><font color=red>http://www.sdotson.com/iparttest/upload/" & FName & "</b></font>" Else Response.Write "<b><font color=red>[img]http://www.sdotson.com/iparttest/upload/" & FName & "[/img]</b></font>" End If End If Upload.Close Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={MySQL};server=localhost;database=username","username","password" response.write "stuff" response.write "Description=" response.write (request.form("description")) set the variables strImageURL = "" strFilename = FName strDescription = request.form("description") strAuthor = request.form("author") strCategory = request.form("category") strIsVerified = "False" strUpdateDate = Date sql = "INSERT INTO iparts (imageurl,filename,description,author,category,isverified,updatedate) VALUES ('" & strImageURL & "','" & strFilename & "','" & strDescription & "','" & strAuthor & "','" & strCategory & "','" & strIsVerified & "','" & strUpdateDate & "')" Conn.Execute(sql) Conn.Close %> </BODY> </HTML> _____________________________________________ and here is the form: <html> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="addnewipart.asp"> <table border="0"> <tr> <td>iPart to Upload:</td> <td><INPUT TYPE="FILE" NAME="FILE1"></td> </tr> <tr> <td>Your Name:</td> <td><input type="text" name="author" size="50"></td> </tr> <tr> <td>Description:</td> <td><input type="text" name="description" size="50"></td> </tr> <tr> <td>Select a Category - <a href="categoryhelp.html">Help</a></td> <td> <SELECT NAME="category"> <OPTION value="hydraulics">Hydraulics <OPTION value="pneumatics">Pneumatics <OPTION value="fasteners">Fasteners <OPTION value="hardware">Hardware <OPTION value="powertransmission">Power Transmission <OPTION value="fasteners">Fasteners <OPTION value="fasteners">Fasteners </SELECT> </td> </tr> <tr> <td></td> <td><input type="submit" name="submit" value="Upload iPart"></td> </tr> </table> </form> </html> -- Sean Dotson, PE Autodesk Inventor Certified Expert http://www.sdotson.com http://www.sdotson.com/forums/ Check the Inventor FAQ for most common questions www.sdotson.com/faq.html ----------------------------------------------------------------------- Tag: Get first day of week? Tag: 292405
  - 25
    - Help - Authentication with ASP I had to transfer an ASP Web Application (developed by another person) to a different web server. It seems to work but not completely. I have some problems with authentication: it is based on a username and a password stored in a SQL Server's table. These data are requested via basic authentication (not a IIS level but I think it is used to create the authentication window in which put username and password). The problem is that it doesn't accept username and password and, after three times, it redirect me to a page telling "You don't have rights to see this page". What could I do? Thanks a lot Lorenzo Here's the code: <% Dim attivo attivo = 0 SET UUEncode = Server.CreateObject( "Scripting.Dictionary" ) FOR i=0 TO 63 SELECT CASE i CASE 0 offset = 65 CASE 26 offset = 71 CASE 52 offset = -4 END SELECT UUEncode( CHR( i + offset) ) = i NEXT Function Decode ( TheString ) For byteGroup = 1 To Len( theString ) Step 4 numBytes = 3 groupBytes = 0 For CharCounter = 0 to 3 thisChar = Mid( theString, byteGroup + CharCounter, 1) If thisChar = "=" Then numBytes = numBytes - 1 thisByte = 0 Else thisByte = UUEncode( thisChar ) End If groupBytes = 64 * groupBytes + thisByte Next For k = 1 To numBytes Select Case k CASE 1: thisChar = groupBytes \ 65536 CASE 2: thisChar = (groupBytes And 65535) \ 256 CASE 3: thisChar = (groupBytes And 255) End Select Decode = Decode & Chr( thisChar ) Next Next End Function auth = TRIM(Request.ServerVariables("HTTP_AUTHORIZATION")) IF auth = "" THEN Response.Status = "401 Not Authorized" Response.AddHeader "WWW-Authenticate", "Basic realm=""localhost""" Response.End END IF auth = TRIM( MID( auth, 6) ) auth = Decode( auth ) authSplit = SPLIT( auth, ":" ) username = authSplit( 0 ) password = authSplit( 1 ) Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString=CONNECTION objConn.Open sqlString = "SELECT username, password, codice_utente FROM " & user &"a_dati_utente WHERE username ='" & username & "' AND password='" & password & "'" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open sqlString, objConn IF RS.EOF THEN Response.Status = "401 Not Authorized" Response.AddHeader "WWW-Authenticate", "Basic realm=""localhost""" RS.Close Set RS = Nothing objConn.Close Set objConn = Nothing Response.End END IF dim id_utente, id_periodico, id_numero, scaricato, codice_utente, checkLogin, us, pwd checkLogin = False us = TRIM(RS("username")) psw = TRIM(RS("password")) if (username=us And password=psw) then checkLogin = True End If If (checkLogin = False) Then Response.Status = "401 Not Authorized" 'nessun record trovato Response.AddHeader "WWW-Authenticate", "Basic realm=""localhost""" RS.Close Set RS = Nothing objConn.Close Set objConn = Nothing Response.End End If codice_utente = rs("codice_utente") RS.Close Set RS = Nothing objConn.Close Set objConn = Nothing %> Tag: Get first day of week? Tag: 292401
- Next
  - 1
    - CDONTS HTML mails with images Hi everyone, I got a little problem while sending HTML e-mails with CDONTS. I generate my e-mail body without problems into a string variable. When I display it to the browser via a "response.write", it's OK, including images. Then I set this string variable to the CDONTS.Newmail object (body property), and I send the mail. The format settings are the following : MyCDONTSMail.BodyFormat=0 MyCDONTSMail.MailFormat=0 when I revcieve the mail, I have comments () instead of image tags... does anybody know where it could come from ? A CDONTS parameter ? a server setting ? A firewall issue ? Thanks for your help, Yan. Tag: Get first day of week? Tag: 292398
  - 2
    - do while loop during ADODB connection Hi, I am writing a script to send customers an email copy of their shopping cart recipt. While creating the variable "mailbody" which will be plugged into my CDO.htmlbody, I need to gather some information about their order. The script does a "Do while not rs.eof" and assigns each rs(field) to a variable, which is then added to the mailbody variable. Unfortunately, when i ask for the mailbody variable later, I lose all of the information added to the variable during my loop. I've tried everything I can think of to correct this so I was hoping somebody out there would have some ideas. Is there a better way of doing this? Script is included below. Thanks, Perry ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mailbody = mailbody & "</tr>" '$$$$$ '<problem area> '$$$$$ If Not rs.EOF Then rs.MoveFirst rs.PageSize = NrPerPage TotalPages = rs.PageCount rs.AbsolutePage = CurrentPage trow="#FCFBFF" Do while not rs.eof and Count1 < rs.PageSize emorderno=rs("orderno") emcustomer=rs("customer") emadate=rs("adate") empartno=rs("code") emqty=rs("qty") emshipcode=rs("shipcode") emusername=rs("username") emdescr=rs("description") if len(emdescr)>30 Then emdescr=Left(emdescr,30) & "..." end if mailbody = mailbody & "<tr><td bgcolor='" & trow & "'><img border='0' alt='" & txt & "' src='http://www.rubber-seal.com/cart3/img/" & emstatus & ".gif'></td>" mailbody = mailbody & "<tr><td></td></tr><td bgcolor=" & trow& ">" & emcode mailbody = mailbody & "<font color='#6699FF' title='" &emcomment& "' size='1'>" mailbody = mailbody & " " & left(comment,50) & "</font></td>" mailbody = mailbody & "<td bgcolor=" &trow& " align='center'>" &emqty& "</td>" count1=count1+1 if trow="#FCFBFF" Then trow="#FFFFFF" Else trow="#FCFBFF" End if rs.movenext loop end if rs.close '$$$$$ '</problem area> '$$$$$ Tag: Get first day of week? Tag: 292392
  - 3
    - ASP TimeOut Hi! I'm using the following server: IIS5 Windows 2000 SP4 2 Processor Hyper thread enabled. When creating HTML files with FileSystemObject the ASP page often times out (not every time though) and gives this error: "The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools" There are no loops on the ASP page. When IIS is restarted the problem disappears for a few hours then starts again. Can anyone help please? Thank you. Jenny Tag: Get first day of week? Tag: 292389
  - 4
    - nested ifs and end ifs and elses still working on this DB :o( I have.. a query that I run, if this query is unsuccessful then another query is run on another table, it goes something like this if rs1.EOF then '1st query returns nothing response.write "nothing in this table" 'so check the other table strSQL = "SELECT * blah blah rs.Open strSQL, Conn, 1 if rs.EOF then '2nd query also returns nothing response.write "nothing in this table either" else do while not rs.EOF reg = rs("reg_num") l_read = rs("last_read") response.write blah blah end if else do while not rs1.EOF strname = rs1("user_name") response.write blah blah rs1.movenext loop end if but I get an expected statement (end if) error I'm looking at my code it it seems to conform to the correct structure if condition1 then code block1 if condition2 then codeblock2 else codeblock3 end if else codeblock4 end if should I perhaps have used elseif?? Tag: Get first day of week? Tag: 292383
  - 5
    - ASP file in InterDev can't "Start" as VBP file in VisualBasic? so how I can test asp code as I test VB project? the function such as "start","step into",etc. all can't use when I edit asp file, InterDev can't "Start" asp file? the IE give me such a simple error report: error type: Microsoft VBScript ÔËÐÐÊ±´íÎó (0x800A01C2) /FindMerchant/search.asp,Line19 the line 19 is: rsResult=search(strKeyword) <% Set conn = Server.CreateObject("ADODB.Connection") conn.open strPath dim rsResult set rsResult = Server.Createobject("ADODB.recordset") rsResult=search(strKeyword) %> <% Function Search(keyword) 'keywordÀïµÄ¹Ø¼ü×ÖÓÃ¿Õ¸ñ·Ö¿ª Dim sqlQuest Dim keywordGroup dim rs set rs= server.createobject("ADODB.Recordset") keywordGroup = Split(keyword) '°ÑkeywordÀïµÄ¹Ø¼ü×ÖÒÔ¿Õ¸ñ×ö·Ö¸î·û×°µ½Êý×éÀï, keyword = "" '×¼±¸ÓÃÀ´×°¾´¦ÀíºóµÄkeyword Dim i For i = 0 To UBound(keywordGroup) '¸øÃ¿¸ö¹Ø¼ü×Ö¼ÓÉÏÌØÊâ·ûºÅÐÎ³ÉSQLÓï·¨ keywordGroup(i) = "'%" & keywordGroup(i) & "%'" Next For i = 0 To UBound(keywordGroup) '×éºÏ¾´¦ÀíºóµÄ¹Ø¼ü×Ö If keyword = "" Then keyword = keywordGroup(i) Else keyword = keywordGroup(i) & "and" & keyword End If Next sqlQuest = "Select Tel,Address From tableMerchant Where Commodity LIKE " & keyword rs.Open sqlQuest, conn Dim a Do While Not rs.EOF a = a & rs.Fields.Item("Tel") & rs.Fields.Item("Address") & ";" rs.MoveNext Loop rs.Close Search =rs conn.Close End Function %> I'm sorry my english is so poor, so forgive me if my word had make you uncomfortable. I'll try my best to express my question correctly Tag: Get first day of week? Tag: 292382
  - 6
    - ASP on Linux Hi Is it possible to host ASP (not .net) to host on Linux,( hopefully yes then whats required extra on Linux). If some one know any issues related to that or any reference site hosting ASP on linux please advise. Kind Regards Fayyaz Tag: Get first day of week? Tag: 292381
  - 7
    - IIS5.1: 404 error when ASP page is called Having previously had this working on my XP machine, I've come back after a month to find this error occuring now. In the meantime, I had installed PHP (v4.2.3) which could easily be a factor. The symptoms are that when I call an ASP page, I get a standard 404 error. However, if I dont specify a page, and a default/index page is found, it renders the page OK. I've uninstalled PHP & rebooted, but this didnt work. Any ideas? Thanks Chris Tag: Get first day of week? Tag: 292380
  - 8
    - Calculate the difference between entries in recordset.. Hi NG, How do i calculate the difference in a recordset ? Here's what i have now... A large SQL query with a lot of joins and this : (the tables i use have a lot of data) <% DO WHILE NOT rs.EOF OR rs.BOF Response.write "<tr>" Response.write "<td width=""167"">" & rs("WXS001") & " </span></td>" Response.write "<td width=""234"">" & rs("WXS004") & " </span></td>" Response.write "<td width=""100"">" & rs("XJS004") & " </span></td>" Response.write "<td width=""167"">" & rs("XJS005") & " </span></td>" Response.write "<td width=""167"">" & rs("XHS003") & " </span></td>" Response.write "</tr>" rs.MoveNext LOOP Else rs.Close Response.write "</table>" myConn.Close set myConn=nothing end if %> I want to find the difference between 0 and rs("XJS005") and then the first rs("XJS005") and the second, then between the second and the third.. To have the interval between them... I hope you understand my point, how do i accomplish this. Regards Kenneth Johansen Tag: Get first day of week? Tag: 292379
  - 9
    - IIS 5.1 local host error 500.100 Installing IIS and getting a strange error. . Error Type: Active Server Pages, ASP 0134 (0x80004005) The object has an invalid ProgID of 'MSWC.MyInfo'. //global.asa, line 1 This error comes after on Page not Found error after entering http://localhost I have done all the localhost not found suggestions in the localhost not found thread. I also looked up the error in the knowledge base and the Anonymous login was not checked for the localstart.asp file. I also ping 127.0.0.1 just fine. Suggestions. Tag: Get first day of week? Tag: 292378
  - 10
    - sending email using CDO Message Hi There I have got little bit asp code to send email It was working if its hosted on windows 2000.. But it doesnt work on winows server 2003..I guess it might be problem with specifying schema..I'm using CDO Message object. Below is the code tht i m using... sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "mail.neospace.net.au" .update End With Set cdoMessage = Server.CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "test@mydomain.com" .To = "abc@xyz.com.au" .Subject = "subject" .HtmLBody = "message body" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Do i need to authorised and log in SMTP server using From id or its has different configuration problem ? Any suggestion would be appreciated Thanx dave Tag: Get first day of week? Tag: 292377
  - 11
    - Are arrCart here is a Table? this source code form a shopping-cart, I'm confuseing on the array of "arrCart", is it a table? a multidimensional array seems like a table from the view of data structure? add a new record to a array is so simple:? arrCart(cProductid,scartItem) = lngcatalogID in ASP, the declaration of declare a multidimensioanl array is same to a variety? don't need to care about the amount of element? Dim arrCart arrCart(cProductid,scartItem) = lngcatalogID could consider that "cProductid" and "scartItem" as a field? maybe my word have confused you, wish you could know my question :-) <% '******CartAddItem dim mycolor Sub CartAddItem(id, rc) ' Return 0 if added, 4 if product does not exist ' Get from datbase and add to instorage array dim scartitem Dim arrCart Dim TotalOptionPrice Dim Optionname CartGetProduct Id, rc if rc = 0 then arrCart = Session("MyCart") scartItem = Session("cartItem") scartitem=scartitem+1 Session("cartItem")=scartitem arrCart(cProductid,scartItem) = lngcatalogID arrCart(cProductCode,scartItem) = strccode arrCart(cProductname,scartItem) = strcname If isnumeric(quantity) then arrCart(cQuantity,scartItem) = CInt(quantity) else arrCart(cQuantity,scartItem) = 1 end if arrCart(cUnitPrice,scartItem) = curCprice + TotaloptionPrice Session("MyCart")=arrCart end if end sub %> I'm sorry my english is so poor, so forgive me if my word had make you uncomfortable. I'll try my best to express my question correctly Tag: Get first day of week? Tag: 292375
  - 12
    - creating a spreadsheet I'm creating a spreadsheet online via ASP. I have the following at the page top... <% Response.contenttype = "application/vnd.ms-excel" %> <% Response.AddHeader "Content-Disposition", "filename=FullList.xls" %> It works fine for some 60+ manufacturer listings. However, it balks on one single manufacturer. By chance, this manuf has 18,000+ records. The others, less than 10,000. Is there a limit to the number of records I can convert to XLS...? thanks! Tag: Get first day of week? Tag: 292364
  - 13
    - Disable auto-search in listbox control I've got an asp page that populates a listbox with info from a db. The list box ends up being pretty big, so I want to be able to search it effectively. I like the method wherein the user types the letters of the word they are looking for from within the listbox and the control automatically scrolls to the item matching the chars they have typed thus far. Example: If the listbox were to contain states Alabama, Alaska, and Louisiana, when the user clicked in the listbox and typed "Ala" the box would scroll to Alabama, and when they typed an additional 's', so the typed string was "Alas", the box would scroll to Alaska. Problem: I've got javascript that does this very well, but the listbox control default search behavior overrides my javascript. So, the javascript will correctly index to Alaska when "Alas" is typed, but when the javascript function is done running, the list moves down to Louisiana, because the asp control thinks that by typing 'l' the user wants to move to the first item in the box beginning with an 'l'. Question: Can I disable the default search behavior in the control? If so, how? If not, does anyone have any thoughts on how else I might get around this problem? Thanks and regards, Ben Tag: Get first day of week? Tag: 292361
  - 14
    - Win 2K3 IIS issue This is a multi-part message in MIME format. ------=_NextPart_000_0015_01C431F4.2ECC51E0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable My win 2K3 std box has 4 static IPs. each of them have been assigned to both the IP card and to an IIS = website. The problem I'm having, is that only the last IP will show the website = to other computers. The first three websites are only visible to the internal browser. I need to know what I am missing to get the first three IPs to show = their websites. All IPs are pingable. None of this is clustered. I have verified that no = other computer has the IP address assigned to it. There is no double assignment of IPs to websites. This was working perfectly under Windows 2000. Thx, Brian This has been posted in three places: microsoft.public.inetserver.asp.general=20 microsoft.public.inetserver.iis=20 microsoft.public.inetserver.iis.security ------=_NextPart_000_0015_01C431F4.2ECC51E0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff background=3D""> <DIV><FONT face=3DArial size=3D2>My win 2K3 std box has 4 static = IPs.<BR>each of=20 them have been assigned to both the IP card and to an IIS = website.<BR>The=20 problem I'm having, is that only the last IP will show the website to = other=20 computers.<BR>The first three websites are only visible to the internal=20 browser.<BR><BR><STRONG>I need to know what I am missing to get the = first three=20 IPs to show their websites.<BR></STRONG><BR>All IPs are pingable. None = of this=20 is clustered. I have verified that no other computer has the IP address = assigned=20 to it.<BR>There is no double assignment of IPs to websites.<BR><BR>This = was=20 working perfectly under Windows 2000.<BR></FONT></DIV> <DIV><FONT face=3DArial size=3D2>Thx,</DIV></FONT> <DIV><FONT face=3DArial size=3D2>Brian</FONT></DIV> <DIV><BR><FONT face=3DArial size=3D2>This has been posted in three=20 places:<BR>microsoft.public.inetserver.asp.general </FONT></DIV> <DIV><FONT face=3DArial size=3D2>microsoft.public.inetserver.iis = </FONT></DIV> <DIV><FONT face=3DArial=20 size=3D2>microsoft.public.inetserver.iis.security</FONT></DIV></BODY></HT= ML> ------=_NextPart_000_0015_01C431F4.2ECC51E0-- Tag: Get first day of week? Tag: 292359
  - 15
    - Need Help stopping pages/images from being cached Is there an effective way to stop pages from being cached? I've created several websites that have dynamic content and images that are managed by a client. The images are named according to the "id" generated via an Identity column of their corresponding database record (ex: 1058.jpg). The problem occurs when the client tries to change the image. The client gets understandly confused because the old image is still displayed, due to the browser caching the image. How can I force the browser to stop caching the page/image? All of the ASP pages already have the following: <%Response.Expires = -1%> <meta http-equiv="expires" content="0"> <meta http-equiv="pragma" content="no-cache"> Any ideas? Thanks, Dan --- Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.676 / Virus Database: 438 - Release Date: 5/3/2004 Tag: Get first day of week? Tag: 292357
  - 16
    - Visual Source Safe and Dreamweaver I've finally got a helper, so I set up VSS. My Interdev works fine, but he can't seem to use dreamweaver. The files open ok, and they save to VSS, but don't show up on the site. Is there something I'm missing? Thanks TOm B Tag: Get first day of week? Tag: 292356
  - 17
    - Ping Another Server's IP??? I need to determine from ASP if the database server is up and running, and if it isn't ping another database server. I posted this before about a different client, and I was told to request a file from the IIS server, and if I cannot retrieve it, the server is not there. I cannot use this method due to one database box being Solaris and the other UNIX, so I need to ping. Thanks! David Lozzi Tag: Get first day of week? Tag: 292352
  - 18
    - Form Value How do you code an input box on a form so that when a user comes back to that form it does not remember it's value. I want the user to have to key in his username and password each time he comes to the page. Don't want autocomplete to be able to remember previous contents. thanks rh Tag: Get first day of week? Tag: 292348
  - 19
    - SQLCategoria = "Select * from Biblioteca_Categoria where Len(Codigo) = 6 order by Codigo asc" ?? Hi, Why the instruction runs ok on sql server 2000 but in access 2000 brings me the maximum size of field in the table: SQLCategoria = "Select * from Biblioteca_Categoria where Len(Codigo) = 6 order by Codigo asc" -- Thanks, Vilmar Brazão de Oliveira Tag: Get first day of week? Tag: 292345
  - 20
    - wait 5 seconds, then redirect how can i redirect to a page, wait on that page for 5 seconds, then redirect somewhere else?? tia jt Tag: Get first day of week? Tag: 292338
  - 21
    - Session lost with IIS Content Rating Hello, this problem is driving me nuts! I am using the Content Ratings (RSACi) for my website. The settings strictly "G" rated - No violence, sex, nudity or offensive language. I have a user who also has his "Content Advisor" turned on. For some reason, the session is lost for the user ONLY after he runs a javascript function on the page, then clicks submit. Make sense? If he clicks submit without first running any javascript , then the page submits correctly. I have no idea how to work around this. Do yo have any ideas???? This problem can easily be reproduced: 1) Set "Content Rating" to be enabled in IIS 2) Copy the code below into your own .asp page in a virtual directory. 3) Enable the "Conent Advisor" in IE 4) Open this page 5) Click the button "Add to Session Variable" a few times. This will add the letter "A" to the session variable 6) Click the link "Run any javascript function" 7) Click the button "Add to Session Variable" and notice all the A's go away, meaning the session variables are gone. Why does this happen???? Is there a work around for this? Please let me know any ideas you may have. THANK YOU IN ADVANCE FOR YOUR HELP :-) SteveS <%@ Language=VBScript %> <% Option Explicit %> <html> <body> <form name="Form1" method=post action=TestContentRating.asp> <b>Test Content Rating</b><br><br> <% response.Write("This session variable was updated this many times: " & session("testme")) session("testme") = session("testme") & "A" %> <br><br> <input type=submit value="Add to Session Variable" ID="Submit1" NAME="Submit1"> <br><br><a href="JavaScript: RunAnyJavascriptFunction()">Run any javascript function</a> <script lang=javascript> function RunAnyJavascriptFunction() { //alert("hello me"); } </script> </form> </body> </html> Tag: Get first day of week? Tag: 292335
  - 22
    - sending multiple emails I have about 5000 emails in my database. I wrote a basic script that sends an email to all of those email addresses. Usually I have to break it up and only send 300-400 at a time so my script does not timeout. I know I can up my timeout to 45 minutes if I needed to, so that they could all be sent at once, but I do not believe that is a wise decision. Does any know of any other ways to do this more efficiently? Thanks. Tag: Get first day of week? Tag: 292332
  - 23
    - how do I reference to an acces dtabase out side my WWW folder? on my hosting acount I have 3 folders that were set up by default: DB LOGS WWW now I understand what each if for obviously, but can i reference back to the databases location outside the www folder from a file using .../DB/database_name.mdb ? {asssuming of course the file I am referenceing from is in the main WWW folder) I just want to make surfe I get this bit right and stop any weeping wailing and gnashing of teeth lol Wayne... Tag: Get first day of week? Tag: 292309
  - 24
    - Using IISADMPWD Virtual Directory I have been trying to get my intranet web site to automatically display the change password page when the user's password is about to expire. I have configured the IISADMPWD virtual directory according to KB 184058. Reading through the KB articles I could find, I get the idea that there is supposed to be a way for IIS to automatically notify a user when they log in that their password will expire soon, but can't seem to get this to happen. Is there some sort of IIS setting that I need to do in IIS to make this happen or am I just dreaming here? TIA Ron L Tag: Get first day of week? Tag: 292307
  - 25
    - add up for each date Hi, I´ve the folloing code:[CODE]<% pat = Request.Form("rapport") Set vbalans = Server.CreateObject("ADODB.Connection") vbalans.Provider = "Microsoft.Jet.OLEDB.4.0" MdbFilePath = Server.MapPath("\vatskebalans\db\vbalans.mdb") vbalans.ConnectionString = "Data Source='" & MdbFilePath & "'" vbalans.open strSQL = "SELECT f.FluidNamn, f.FluidID, v.Dag, v.PatID, v.Volym, v.Energi," &_ " p.ftEnamn, p.ftFnamn FROM (tblVetskebalans v INNER JOIN tblFluids f"&_ " ON v.FluidID = f.FluidID) INNER JOIN tblPersonuppgifter p ON v.PatID = p.PatID" &_ " WHERE p.PatID = "& pat &"" Set rs1 = vbalans.Execute (strSQL) 'formatera till svensk personnummer Function SvPnr(txt) personnummer =Left(txt,6) & " - " & Right(txt,4) SvPnr = personnummer End Function Function FirstVersal(txt) versal = UCase(Left(txt,1)) & LCase(Right(txt, Len(txt)-1)) FirstVersal = versal End Function Response.Write SvPnr(rs1("PatID")) & "<BR>" Response.Write "<B>" & FirstVersal(rs1("ftEnamn")) & ", " & FirstVersal(rs1("ftFnamn")) & "</B><P><P><P>" %> <TABLE border=1> <TR> <TD><B>Datum</B></TD> <TD><B>Vätska</B></TD> <TD><B>Volym</B></TD> <TD><B>Energi</B></TD> </TR> <% v = 0 e = 0 dat = "" Do While Not rs1.EOF v = v + cint(rs1("Volym")) e = e + cint(rs1("Energi")) If dat <> CDate(rs1("Dag")) then dat = CDate(rs1("Dag")) Response.Write "<TR><TD>" & CDate(rs1("Dag"))& "</TD>" Response.Write "<TD>" & rs1("FluidNamn") & "</TD>" Response.Write "<TD>" & rs1("Volym") & "</TD>" Response.Write "<TD>" & rs1("Energi") & "</TD></TR>" Else Response.Write "<TR><TD> </TD>" Response.Write "<TD>" & rs1("FluidNamn") & "</TD>" Response.Write "<TD>" & rs1("Volym") & "</TD>" Response.Write "<TD>" & rs1("Energi") & "</TD></TR>" End If rs1.MoveNext Loop vbalans.Close Set vbalans = Nothing %> </TABLE> <BR><BR><BR> <% Response.Write "<B><U>Totala volymen är</U></B>" & ": " & v & "<BR>" Response.Write "<B><U>Totala energi är</U></B>" & ": " & e & "<BR>" [/CODE] and this give the folling printout: 111111 - 1111 Elvansson, Elvan Datum Vätska Volym Energi 2004-03-21 Blod 1000 0 Sondmat 550 275 Sondmat 550 275 Sondmat 50 35 2004-04-29 Albumin 76 0 2004-05-02 Proviva 123 0 Totala volymen är: 2849 Totala energi är: 825 But I would like the add upp for each datum: i.e 2004-03-21 totVolym= 2150 and energi = 585 Can you please help me with this code? All help we´ll be appiciated /Peter L Tag: Get first day of week? Tag: 292302

Need to print "Week of (first day of week)"
First day being Monday.

ie:
week = Request.querystring("mydate")
response.write "Week of" & week

If week = 5/6/2004 (which is Thursday) it should output "Week of Monday, May
03, 2004"

How can I do this?

Thanks!

Top

Re: Get first day of week? by Aaron

Aaron
Thu May 06 13:20:33 CDT 2004

http://www.aspfaq.com/2489

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/

"Targa" <targa1SPAMSUCKS@alltel.net> wrote in message
news:uAIIDM5MEHA.268@TK2MSFTNGP11.phx.gbl...
> Need to print "Week of (first day of week)"
> First day being Monday.
>
> ie:
> week = Request.querystring("mydate")
> response.write "Week of" & week
>
> If week = 5/6/2004 (which is Thursday) it should output "Week of Monday,
May
> 03, 2004"
>
> How can I do this?
>
> Thanks!
>
>

Top

Re: Get first day of week? by dlbjr

dlbjr
Thu May 06 15:53:01 CDT 2004

'From dlbjr

Function GetPriorMonday(dtmDate)
GetPriorMonday = "NAD"
If IsDate(dtmDate) Then
intAdjust = WeekDay(dtmDate,2) - 1
GetPriorMonday = DateAdd("d",- intAdjust,dtmDate)
End If
End Function

Top