Click here to Skip to main content
15,886,873 members
Home / Discussions / Web Development
   

Web Development

 
Questionerror '80020009' Pin
Ekjon28-Jan-09 6:57
Ekjon28-Jan-09 6:57 
AnswerRe: error '80020009' Pin
Dave Kreskowiak28-Jan-09 7:26
mveDave Kreskowiak28-Jan-09 7:26 
GeneralRe: error '80020009' Pin
Ekjon28-Jan-09 8:39
Ekjon28-Jan-09 8:39 
Generalletmegooglethatforyou Pin
led mike28-Jan-09 9:20
led mike28-Jan-09 9:20 
GeneralRe: letmegooglethatforyou Pin
Ekjon28-Jan-09 9:54
Ekjon28-Jan-09 9:54 
GeneralRe: letmegooglethatforyou Pin
Dave Kreskowiak28-Jan-09 16:24
mveDave Kreskowiak28-Jan-09 16:24 
GeneralRe: letmegooglethatforyou Pin
led mike29-Jan-09 5:00
led mike29-Jan-09 5:00 
QuestionShutterfly Pin
kevin baraza27-Jan-09 21:42
kevin baraza27-Jan-09 21:42 
I am developing an application to post photo details to shutterfly for printing the digibug code works okay but the shutterfly code just doesn't work.if anybody knows how to do the shutterfly post your help will be highly appreciated.Also does any body know how to do the walgreen and walmart posts

Imports System
Imports System.Web
Imports System.Data
Imports System.Data.SqlClient

Partial Public Class ChoosePrinter
Inherits System.Web.UI.Page

Private ReadOnly digibugInfo As String = _
"<form action=""http://www.digibug.com/dapi/order.php"" method=""post"">" & _
"<input type=""hidden"" name=""digibug_api_version"" value=""100"">" & _
"<input type=""hidden"" name=""company_id"" value=""3376"">" & _
"<input type=""hidden"" name=""event_id"" value=""8973"">" & _
"<input type=""hidden"" name=""cmd"" value=""addimg"">" & _
"<input type=""hidden"" name=""return_url"" value=""%RETURN_URL%"">" & _
"<input type=""hidden"" name=""num_images"" value=""1"">" & _
"<input type=""hidden"" name=""image_1"" value=""%IMG_URL%"">" & _
"<input type=""hidden"" name=""image_height_1"" value=""%IMG_HEIGHT%"">" & _
"<input type=""hidden"" name=""image_width_1"" value=""%IMG_WIDTH%"">" & _
"</form>"

Private ReadOnly shutterflyinfo As String = _
"<form action=""http://www.shutterfly.com/c4p/UpdateCart.jsp"" method=""post"">" & _
"<input type=""hidden"" name=""addim"" value=""1""> " & _
"<input type=""hidden"" name=""protocol"" value=""SFP,100"">" & _
"<input type=""hidden"" name=""pid"" value=""C4P"">" & _
"<input type=""hidden"" name=""psid"" value=""AFFL"">" & _
"<input type=""hidden"" name=""imnum"" value=""1"">" & _
"<input type=""hidden"" name=""imraw-1"" value=""%IMG_URL%"">" & _
"<input type=""hidden"" name=""imrawheight-1"" value=""%IMG_HEIGHT%"">" & _
"<input type=""hidden"" name=""imrawwidth-1"" value=""%IMG_WIDTH%"">" & _
"<input type=""hidden"" name=""imthumb-1"" value=""%IMG_THUMBURL%"">" & _
"<input type=""hidden"" name=""returl"" value=""%RETURN_URL%"">" & _
"</form> "


Private intid As Integer

Private digibug As String

Private shutterfly As String

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim fotoid As String = Request.QueryString.Item("id")

intid = CInt(fotoid)

Me.GetPhotosFromQueryString(intid)

Dim foto As Fotos = New Fotos(intid)

Me.printimage.ImageUrl = "GetFoto.aspx?id=" + foto.FotoID.ToString()

Me.Image1.Visible = False

Me.Image1.ImageUrl = "GenerateThumbs.aspx?id=" & foto.FotoID

Dim db As New DbObject()

Dim parms As SqlParameter() = { _
New SqlParameter("@FotoID", foto.FotoID)}

Dim dr As SqlDataReader = db.RunProcedure("sp_Foto_GetLoc", parms)

If dr.Read() Then

Dim b As New Bitmap(dr.GetString(dr.GetOrdinal("FotoLoc")))
digibug = digibugInfo

digibug = digibug.Replace("%RETURN_URL%", Request.Url.ToString())
digibug = digibug.Replace("%IMG_URL%", "http://www.photoamigo.com/GetFoto.aspx?max=4096&id=" & foto.FotoID)
digibug = digibug.Replace("%IMG_HEIGHT%", b.Height.ToString())
digibug = digibug.Replace("%IMG_WIDTH%", b.Width.ToString())
shutterfly = shutterflyinfo

shutterfly = shutterfly.Replace("%RETURN_URL%", Request.Url.ToString())
shutterfly = shutterfly.Replace("%IMG_URL%", "http://www.photoamigo.com/GetFoto.aspx?max=4096&id=" & foto.FotoID)
shutterfly = shutterfly.Replace("%IMG_HEIGHT%", b.Height.ToString())
shutterfly = shutterfly.Replace("%IMG_WIDTH%", b.Width.ToString())
shutterfly = shutterfly.Replace("%IMG_THUMBURL%", "http://www.photoamigo.com/GenerateThumbs.aspx?id=" & foto.FotoID)

Me.linkbtndibug.Visible = False

Me.linkbtnshutterfly.Visible = False

End If

End Sub
Protected Sub GetPhotosFromQueryString(ByVal id As Integer)
Dim foto As New Fotos(id)
Dim fotolocation As String = "GenerateThumbs.aspx?id=" & foto.FotoID.ToString()
Dim usr As New User(foto.UserID)
Dim navigateurl As String = String.Format(ConfigurationSettings.AppSettings("UserHomePage"), _
usr.strUserName) & "?id=" & foto.FotoID.ToString()
Me.InsertPhotosInCache(fotolocation, navigateurl)
End Sub

Protected Sub InsertPhotosInCache(ByVal key As String, ByVal value As String)
If CacheManager.FotoCache(key) Is Nothing Then
CacheManager.FotoCache.Insert(key, value, Nothing, DateTime.MaxValue, TimeSpan.FromMinutes(10))
Else
CacheManager.PurgeCache(key)
End If

End Sub
Protected Sub Index_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles printer.SelectedIndexChanged

Me.PostValues()

End Sub

Private Sub PostValues()


Select Case printer.SelectedItem.Text

Case "DigiBug"

Me.linkbtndibug.Visible = True



Case "ShutterFly"

Me.linkbtnshutterfly.Visible = True

Me.Image1.Visible = True

End Select
End Sub

End Class
NewsInternet Explorer 8 Release Candidate Is Out Pin
brucedkyle27-Jan-09 10:02
brucedkyle27-Jan-09 10:02 
Questionvideomail Pin
dadashri27-Jan-09 5:48
dadashri27-Jan-09 5:48 
AnswerRe: videomail Pin
divyamistry27-Jan-09 21:29
professionaldivyamistry27-Jan-09 21:29 
AnswerRe: videomail Pin
Dave Kreskowiak28-Jan-09 7:24
mveDave Kreskowiak28-Jan-09 7:24 
QuestionWhat will happen if somebody do it ? Pin
Mohammad Dayyan27-Jan-09 0:22
Mohammad Dayyan27-Jan-09 0:22 
AnswerRe: What will happen if somebody do it ? Pin
N a v a n e e t h27-Jan-09 2:42
N a v a n e e t h27-Jan-09 2:42 
AnswerRe: What will happen if somebody do it ? Pin
Dave Kreskowiak28-Jan-09 7:23
mveDave Kreskowiak28-Jan-09 7:23 
QuestionHelp needed with webservice Pin
soniaiq26-Jan-09 23:14
soniaiq26-Jan-09 23:14 
AnswerRe: Help needed with webservice Pin
N a v a n e e t h27-Jan-09 2:44
N a v a n e e t h27-Jan-09 2:44 
QuestionJavascript Rollover is a rollover Pin
jumbojs26-Jan-09 15:23
jumbojs26-Jan-09 15:23 
QuestionAccess excel on a server via internet Pin
soniabvc26-Jan-09 14:17
soniabvc26-Jan-09 14:17 
AnswerRe: Access excel on a server via internet Pin
Paddy Boyd26-Jan-09 23:33
Paddy Boyd26-Jan-09 23:33 
GeneralRe: Access excel on a server via internet Pin
soniabvc27-Jan-09 4:47
soniabvc27-Jan-09 4:47 
AnswerRe: Access excel on a server via internet Pin
Ranjit Viswakumar29-Jan-09 14:22
Ranjit Viswakumar29-Jan-09 14:22 
QuestionI need your comments about Vevocart Pin
hifiger200426-Jan-09 14:11
hifiger200426-Jan-09 14:11 
AnswerRe: I need your comments about Vevocart Pin
Drew Stainton26-Jan-09 15:46
Drew Stainton26-Jan-09 15:46 
QuestionImages Shift In Slideshow Pin
Channel8426-Jan-09 11:01
Channel8426-Jan-09 11:01 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.