Hi,

i don't know if anyone can help, but I'd essentially like to be able to allow users to download a job application form from our servers.

I have this page (pre written by someone else) linking to a MS SQL database. The field WelshJobApp contains an http address, like www.rnid.org.uk/JobVacancies/jobref1041.doc
How do i get the WelshJobApp to be a hyperlink and to open up in another window. I know that it needs a href code, but i cannot figure out where the code needs to sit on the third line?

Response.Write "<tr><td style=""width: 64px;""> </td>"
Response.Write "<td valign=top><b>Welsh Application Form</b></td>"
Response.Write "<td valign=top>" & objRS("WelshJobApp" & "</td></tr>"

I'd appreciate any help with this..thanks

Sze

<font face='Verdana'></font id='Verdana'>

Hi try this,
&lt;a href= "&lt;% Response.Write "& objRS("WelshJobApp" & " %&gt; target="_blank"&gt;"&lt;/td&gt;&lt;/a&gt;&lt;/tr&gt;

The target will open in a new window and the ahref will create a link. Hope this works. Good luck.

<font face='Tahoma'>
you were close, i had to make a few changes and got this working.

Response.Write "&lt;td valign=top&gt;&lt;a href='" & objRS("WelshJobApp" & "' target='_blank'&gt;" & objRS("WelshJobApp" & "&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;"

Thanks for you help.

Sze
</font id='Tahoma'>

I have a similar problem, but I'm trying to put the code inside an If Then statement. This works fine on its own:
&lt;%

Response.Write "&lt;a href='" & rsFrames("Doc" & "' target='_blank'&gt;" & "Link" & "&lt;/a&gt;"
%&gt;

but when I add the If Then the link opens a blank window:

&lt;%
If rsFrames.Fields.Item("Doc"="None" Then
Response.Write " "
Else
Response.Write "&lt;a href='" & rsFrames("Doc" & "' target='_blank'&gt;" & "Link" & "&lt;/a&gt;"
End If
%&gt;

Any help would be greatly appreciated

Simon

Hi Simon

Try this:

If rsFrames.Fields.Item("Doc".Value = "None" Then
Response.Write(" "
Else
Response.Write("&lt;a href=""" & rsFrames.Fields.Item("Doc".Value & """ & "" target=""_blank""&gt;" & "Link" & "&lt;/a&gt;"
End If

Using this method you will find that the html attributes have a double quote and not single. In asp the single quote is regarded as the start of a comment unless you escape the single quote.

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
Lee Diggins - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Lee,

Thanks for the reponse - I tried that but I get the same results. You can see the page here:

www.esc-online.com/apps/frames/test_blank.asp

If you click on the links you'll see it opens the new window, but its blank.

It seems to have something to do with the IF THEN statement because if I just have your code without the IF THEN portion it works fine as you can see here:

www.esc-online.com/apps/frames/test.asp

But the purpose of this is to hide the invalid links (only the first three records should show links).

Hi Simon

My mistake, should of checked before posting, try this:

Response.Write("&lt;a href=""" & rsFrames.Fields.Item("Doc".Value & """ target=""_blank""&gt;Link&lt;/a&gt;"

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
Lee Diggins - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Hi Simon

The previous post was to fix the link reponse.write string as it was incorrect. Regarding the IF statement, would the recordset actually return the string None or are you checking for NULL?

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
Lee Diggins - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Originally I had a blank record and I was saying

If rsFrames.Fields.Item("Doc"=" " Then
Response.Write " "

but this wouldn't work for some reason, so instead I put the word "None" in every record that didn't contain anything. Hence the

If rsFrames.Fields.Item("Doc"="None" Then
Response.Write " "

I tried your last suggestion but I get the same results.

Simon

Hi Simon

don't forget the .Value

Also you could have done an If IsNull() check instead of populating all the fields with None. Can you also tell me why some records have links and other do not, is this beacuse of the If statement result?

Post back if you still have a problem and post the entire page code please.

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
Lee Diggins - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Lee,

Being an ASP newbie I don't know where to put that IsNull code. I have replaced the "None" with a blank record again so I would like to know how to.

Seems I have two problems:

1. How to return blank if the record is empty
2. How to write the code to display a hyperlink if there is a value in the record.

Basically, the page is a list of available cobol programs, some of which have pdf documents detailing what they do and some that don't. If there is a pdf file available (the database shows it as a url) then I want it to display a link. If there is no PDF then I don't want it to display anything.

Here's the complete code with my (poor) attempt at using the IsNull thingy (I've indicated the section with the problem with a comment):

&lt;%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%&gt;
&lt;!--#include file="../../Connections/connFrames.asp" --&gt;
&lt;%
Dim rsFrames
Dim rsFrames_numRows

Set rsFrames = Server.CreateObject("ADODB.Recordset"
rsFrames.ActiveConnection = MM_connFrames_STRING
rsFrames.Source = "SELECT * FROM Frames_List, Cat, Version WHERE Frames_List.CatID=Cat.CatID AND Frames_List.VID = Version.VID ORDER BY Frames_List.FrameID"
rsFrames.CursorType = 0
rsFrames.CursorLocation = 2
rsFrames.LockType = 1
rsFrames.Open()

rsFrames_numRows = 0
%&gt;
&lt;%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsFrames_numRows = rsFrames_numRows + Repeat1__numRows
%&gt;&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "www.w3.org/TR/html4/loose.dtd"&gt;
&lt;html&gt;
&lt;head&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"&gt;
&lt;title&gt;Untitled Document&lt;/title&gt;
&lt;link href="frames" rel="stylesheet" type="text/css"&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;table width="100%" border="0" cellspacing="0" cellpadding="0"&gt;
&lt;tr&gt;
&lt;td&gt;&lt;h2&gt;Frame Name &lt;/h2&gt;&lt;/td&gt;
&lt;td&gt;&lt;h2&gt;Description&lt;/h2&gt;&lt;/td&gt;
&lt;td&gt;&lt;h2&gt;Location&lt;/h2&gt;&lt;/td&gt;
&lt;td&gt;&lt;h2&gt;Category&lt;/h2&gt;&lt;/td&gt;
&lt;td&gt;&lt;h2&gt;Version&lt;/h2&gt;&lt;/td&gt;
&lt;td&gt;&lt;h2&gt;Prg&lt;/h2&gt;&lt;/td&gt;
&lt;td&gt;&lt;h2&gt;&nbsp;&lt;/h2&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;%
While ((Repeat1__numRows &lt;&gt; 0) AND (NOT rsFrames.EOF))
%&gt;
&lt;tr valign="top"&gt;
&lt;td&gt;&lt;p&gt;&lt;%=(rsFrames.Fields.Item("Name".Value)%&gt;&lt;/p&gt;&lt;/td&gt;
&lt;td&gt;&lt;p&gt;&lt;%=(rsFrames.Fields.Item("FrameDesc".Value)%&gt;&lt;/p&gt;&lt;/td&gt;
&lt;td&gt;&lt;p&gt;&lt;%=(rsFrames.Fields.Item("Location".Value)%&gt;&lt;/p&gt;&lt;/td&gt;
&lt;td&gt;&lt;p&gt;&lt;%=(rsFrames.Fields.Item("CatDesc".Value)%&gt;&lt;/p&gt;&lt;/td&gt;
&lt;td&gt;&lt;p&gt;&lt;%=(rsFrames.Fields.Item("VDesc".Value)%&gt;&lt;/p&gt;&lt;/td&gt;
&lt;td&gt;&lt;p&gt;&lt;%=(rsFrames.Fields.Item("Programmer".Value)%&gt;&lt;/p&gt;&lt;/td&gt;
&lt;td&gt;&lt;p&gt;
&lt;!-- Here's my code I'm having problems with --&gt;
&lt;%
If rsFrames.Fields.Item("Doc".Value = IsNull() Then
Response.Write(" "
Else
Response.Write("&lt;a href=""" & rsFrames.Fields.Item("Doc".Value & """ target=""_blank""&gt;Link&lt;/a&gt;"
End If
%&gt;
&lt;/p&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="top"&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;
&lt;%if (rsFrames.Fields.Item("ExtDesc".Value = "None" Then
Response.Write " "
Else
Response.Write("&lt;p&gt;&lt;a href=""" & "ext_desc.asp" & "?FrameID=" & rsFrames("FrameID" & """&gt;" & "Extended Description & Installation Notes" & "&lt;/a&gt;"
End If
%&gt;
&lt;/td&gt;
&lt;td&gt;&nbsp;&lt;/td&gt;
&lt;td&gt;&nbsp;&lt;/td&gt;
&lt;td&gt;&nbsp;&lt;/td&gt;
&lt;td&gt;&nbsp;&lt;/td&gt;
&lt;td&gt;&nbsp;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="top"&gt;
&lt;td colspan="7"&gt;&lt;hr&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsFrames.MoveNext()
Wend
%&gt;

&lt;/table&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
rsFrames.Close()
Set rsFrames = Nothing
%&gt;

Hi Simon

The IsNull() function would be used like this:
If IsNull(rsFrames.Fields.Item("Doc".Value) Then
Response.Write(""
Else
'your code here
End If

If the value being sent back to the page are not null but are an empty string string then try this:
If rsFrames.Fields.Item("Doc".Value = "" Then
Response.Write(""
Else
'your code here
End If

Do not confuse an empty string and a NULL as they are not the same thing.

Download this MS documentation for scripting technologies, contains vbscript references:
www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en

Post back if you're still stuck. You can also try doing a test response.write(rsFrames.Fields.Item("Doc".Value) to see where possible the values that are being returned.

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
Lee Diggins - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>