Abrir un documento desde un calendar

[lreyesg007]

Hola trabajo con visual studio 2003 y tengo un calendar que al dar click me debe abrir en una ventana nueva un archivo pdf. Pero esto me lo abre en la misma ventana... como lo hago para que sea en una nueva...

de antemano muchas gracias

este es mi codigo

Private Sub CalOrdEsc_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalOrdEsc.SelectionChanged

Dim cDocOrdEsc As String
Dim cPath As String

cPath = "D:\inetpub\wwwroot\pruebas\"
cDocOrdEsc = Year(CalOrdEsc.SelectedDate) & Right("00" & Month(CalOrdEsc.SelectedDate), 2) & Right("00" & Day(CalOrdEsc.SelectedDate), 2) & ".pdf"

If System.IO.File.Exists(cPath & cDocOrdEsc) Then
Response.ContentType = "application/pdf"
Response.Redirect(Server.MapPath("/pruebas/" & cDocOrdEsc)))

End If

'End If

End Sub

[Peterpay]

cambia tu Resposne.Redirect por


Response.WriteFile(Server.MapPath...)

[lreyesg007]

Gracias Peterpay... funciona.. pero al igual que Response.Redirect me abre el pdf en la misma ventana y no una nueva... no tiene como darle el parametro _blank ?...

[lreyesg007]

No existe una instruccion que me pueda hacer eso? :(

[Peterpay]

no . a menos que pongas un link en las fechas con el formato para que el target sea un blank pero asi no hay modo con response redirect o writefile.

[lreyesg007]

Gracias Paterpay por tus respuestas... al final encontre esto en la web.... si bien no me la abre inmediatamente me sirve ya que no modifica mi vntana actual. Esperoq ue a alguien le sirva
Saludos.

Private Sub CalOrdEsc_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalOrdEsc.SelectionChanged

Dim cDocOrdEsc As String
Dim cPath As String


cDocOrdEsc = Year(CalOrdEsc.SelectedDate) & Right("00" & Month(CalOrdEsc.SelectedDate), 2) & Right("00" & Day(CalOrdEsc.SelectedDate), 2) & ".pdf"

If System.IO.File.Exists(cPath & cDocOrdEsc) Then
Response.AppendHeader("content-disposition", "attachment; filename=" & cDocOrdEsc)
Response.ContentType = "application/pdf"
Response.Flush()
Response.WriteFile(erver.MapPath("/pruebas/" & cDocOrdEsc)


End If

End Sub