<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html> <!--#include virtual="/common/DBUtility.asp"--> <!--#include virtual="/config/datalinks.asp"--> <% dim sSQL dim txt10, txt13, sReqtxt10, sReqtxt13 if Request.form("SUBMITTED_IT") = "X" then '//Response.Write "BIP_CONNT_STR is " & BIP_CONNT_STR & "<BR>" if Request.Form("txtisbn10") <> "" and Request.Form("txtisbn13")= "" then sSQL = "select bkpower.hyphenisbn_func(?,10,13) converted from dual" set rs = GetRecordSetBindVar(BIP_CONNT_STR, sSQL, array(Request.Form("txtisbn10"))) sConvertedisbn = rs("converted") txt13= sConvertedisbn sSQL = "select bkpower.hyphenisbn_func(?,10,10) converted from dual" set rs = GetRecordSetBindVar(BIP_CONNT_STR, sSQL, array(Request.Form("txtisbn10"))) sReqtxt10 = rs("converted") txt10= sReqtxt10 end if if Request.Form("txtisbn13")<> "" and Request.Form("txtisbn10")= "" then sSQL = "select bkpower.hyphenisbn_func(?,13,10) converted from dual" set rs = GetRecordSetBindVar(BIP_CONNT_STR,sSQL,array(Request.Form("txtisbn13"))) sConvertedisbn = rs("converted") txt10 = sConvertedisbn sSQL = "select bkpower.hyphenisbn_func(?,13,13) converted from dual" set rs = GetRecordSetBindVar(BIP_CONNT_STR, sSQL, array(Request.Form("txtisbn13"))) sReqtxt13 = rs("converted") txt13= sReqtxt13 end if end if 'dim isbn 'dim isbn10convert 'dim isbn13convert 'isbn = Request.Form("isbn") 'select case isbn 'case "isbn10" ' isbn10Checked = "checked" 'case "isbn13" ' isbn13Checked = "checked" 'end select %> <head><title>ISBN-13 Online Converter</title> <meta content="text/html; charset=unicode" http-equiv="Content-Type"> <meta content="NEEDS TO BE COMPLETED" name="Keywords"> <meta content="R.R. Bowker produces reference products that form the cornerstone of the library and bookselling communities." name="Description"><script language="JavaScript"> <!-- function MM_swapImgRestore() { //v3.0 var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc; } function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } function MM_findObj(n, d) { //v3.0 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x; } function MM_swapImage() { //v3.0 var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3) if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];} } function goLF(f) { if (f.Criteria1.options[f.Criteria1.selectedIndex].value != "none") { location = f.Criteria1.options[f.Criteria1.selectedIndex].value; } } function SetAction(sAction){ f.Criteria1.options[f.Criteria1.selectedIndex].value = sAction } function generator(isbn10,isbn13) { var rtn,inDigits,outDigits; if (f.Criteria1.options[f.Criteria1.selectedIndex].value != "none") { if (isbn10 !=null) { inDigits=10; outDigits=13; } else if (isbn13 !=null ){ inDigits=13; outDigits=10; } } } //--> </script> <!--#include virtual=/ssi/header.inc--> <body bgColor="white" leftMargin="0" topMargin="0" vLink="#336699" marginwidth="0" marginheight="0" avLink="#000066" link="#336699" onLoad="MM_preloadImages('../images/links_isbnus_off.gif','../images/links_isbnpr_off.gif','../images/links_isbnintl_off.gif','../images/links_san_off.gif','../images/links_ismn_off.gif','../images/links_home_off.gif','../images/links_about_off.gif','../images/links_feedback_off.gif','../images/links_help_off.gif','../images/links_resources_off.gif')" alink="#336699"> <form name="frmconvert" method="post" onSubmit="submit"> <input type=hidden name="SUBMITTED_IT" value="X"> <P></P> <meta content="MSHTML 6.00.2800.1126" name="GENERATOR"> <table width="85%" border="0" cellspacing="0" cellpadding="0" height="80%"> <tr> <td width="50" background="/images/placer_blue_bg_50w.gif">&nbsp;</td> <td valign="top"> <h3><font face="Tahoma, Arial, Helvetica" size="3" color="#990000"><IMG height=17 src="../images/content_arrow.gif" width=12 align=absMiddle> ISBN-13 Online Converter</font></h3> <font face="Tahoma, Arial, Helvetica" size="2"> <strong> <p align="left"> <P style="COLOR: black" align=left>Convert your ISBN: <P align=center><BR> <%if Request.form("SUBMITTED_IT") = "X" and (Request.Form("txtisbn13")= "" and Request.Form("txtisbn10")= "") then Response.Write "<font color=red>" & vbCRLF response.write vbCRLF & "<UL>" & vbCRLF Response.Write "<LI><b>Coversion failed. Please enter valid 10 or 13 digit ISBN.</b><br>" & vbCRLF response.write vbCRLF & "</UL></font>" & vbCRLF end if %> <%if Request.form("SUBMITTED_IT") = "X" then if Request.Form("txtisbn10") > "" then sSQL = "select NVL(bkpower.hyphenisbn_func(?,10,10), 'NULL') converted from dual" set rs = GetRecordSetBindVar(BIP_CONNT_STR, sSQL, array(Request.Form("txtisbn10"))) sReqtxt10 = rs("converted") if sReqtxt10 = "NULL" then sReqtxt13= "" txt10="" txt13="" Response.Write "<font color=red>" & vbCRLF response.write vbCRLF & "<UL>" & vbCRLF Response.Write "<LI><b>Coversion failed. Please enter valid 10 or 13 digit ISBN.</b><br>" & vbCRLF response.write vbCRLF & "</UL></font>" & vbCRLF end if end if if Request.Form("txtisbn13") > "" then sSQL = "select NVL(bkpower.hyphenisbn_func(?,13,13), 'NULL') converted from dual" set rs = GetRecordSetBindVar(BIP_CONNT_STR, sSQL, array(Request.Form("txtisbn13"))) sReqtxt13 = rs("converted") if sReqtxt13 = "NULL" then sReqtxt10= "" txt10="" txt13="" Response.Write "<font color=red>" & vbCRLF response.write vbCRLF & "<UL>" & vbCRLF Response.Write "<LI><b>Coversion failed. Please enter valid 10 or 13 digit ISBN.</b><br>" & vbCRLF response.write vbCRLF & "</UL></font>" & vbCRLF end if end if end if%> <!--DD 12-10-2004 <strong> &lt;INSERT ISBN CONVERSION SCRIPT&gt;--> <TABLE cellSpacing=2 cellPadding=0 width="98%" align=center border=0> <TR> <TD vAlign=top><FONT face="Tahoma, Arial, Helvetica" size=2><B>Complete 10-digit ISBN </B><!--<input type="radio" NAME="isbn" <%=isbn10%>>--><INPUT id=txtisbn10 maxLength=13 value="<%=txt10%>" name=txtisbn10> <BR><BR></FONT></TD></TR> <TR> <TD vAlign=top><FONT face="Tahoma, Arial, Helvetica" size=2><B>Complete 13-digit ISBN </B><!--<input type="radio" NAME="isbn"<%=isbn13%>>--><INPUT id=txtisbn13 maxLength=17 value="<%=txt13%>" name=txtisbn13> </FONT></TD></TR> <TR> <td valign="right">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input TYPE="Image" src="/common/images/but_submit.gif" name="Submit" width="56" height="21" alt="Submit" border="0" hspace="0" vspace="0" align="center"> </td> </TR></TABLE> <P><A href="converterret.asp" target=blank><FONT color=#0000ff>Clear</FONT></A></P> <P style="COLOR: black" align=left><FONT face="Tahoma, Arial, Helvetica" size=2> <HR id=HR1> <p align="left"></FONT> </strong></font><font size="2" face="Tahoma, Arial, Helvetica">Do you know that Bowker offers a number of services for retailers.<br> <br> <A href="http://www.bowker.com/markets/retailers.htm" target=_blank><IMG height=18 src="../images/go_button2.gif" width=18 border=0></A> <A href="http://www.bowker.com/markets/retailers.htm" target=_blank>Learn more about Bowker Retail Services</A>.</font> <p> <hr> </td> </tr> </table><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <center class="inside_text"> <p><IMG height=15 src="../images/smalllogo.gif" width=45><br> <br> <font face="Tahoma, Arial, Helvetica" size="1"> Copyright &copy; 2011 R.R. Bowker LLC. All rights reserved. </font> </p> </center> </td> </tr> </table> <p>&nbsp;</p></form> </body> </html> </body> </html> </body> </html>